VB程序员博客

我用ADODC执行SQL语句出现语法错误 请高手解决
我先用模块做的
模块中如下代码
public cns as string
public cs as connection
Public Sub loadmdb()　　
    cns = App.Path
    If Right(cns, 1) <> "" Then
      cns = cns + ""
    End If
    cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题
End Sub

frm load事件中调用该连接字符串。代码如下：
Private Sub Form_Load()
    Call loadmdb　　　　‘调用连接字符串过程
    adodc1.ConnectionString = cns
    adodc1.CommandType = adCmdText
    adodc1.RecordSource = "select * from 员工工资表"  '此地也保证没问题
    adodc1.Refresh
End Sub

按钮代码如下
cs.execute "select * from 员工工资表 where id='& text1.text &'"

有问题  就是按钮代码处说有错 编译不了

然后我又用别的办法做了
直接在按钮处写了如下代码 还是有问题

adodc1.recordsource="select * from 员工工资表 where id='& text1.text &'"
adodc1.refresh

说是该行的函数参数错误 

帮我看下  谢谢了
对了 忘了一句
在frm load中忘记了两条代码

Set cs = New Connection
cs.Open cnsadodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"<
Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题

小 的前面多一个空格会没问题 ?????    cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= 小型商店管理系统.mdb"<
你的变量 cns 是本地路径 我看应该是 cs = "Pro…. 吧 ?

cs = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题 <
晕看错了<
adodc1.recordsource="select * from 员工工资表 where id=" & Chr(39) & Text1.Text & Chr(39)

呵…那些符号很烦人的 会乱 所以我都用 Chr(39)代替<
adodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"

以上这样应该没问题，要注意id字段为字符型，注意双引号的位置。回12F 为什么要符号呢 ？ 经常会有有一堆的单双引号逗号混在一起, 稍不留神便多一个或少一个, 找了老半天有时还让你找不出来…..

从文本文件里读入这样一行字符串
"abc","def",,,"bdd"
实际上对应5个字段的值，
但是用Split函数处理后，得到的是前2个子串
有什么方法可以得到和原串一样的结果吗？
字符串有问题。应该把它们连接起来，象这样：
Dim s As String
s = "abc,def,,,bdd"

c:choujiang.txt——"abc","def",,,"bdd" 在其中,咋会是前2个子串?不会.Dim str As String
Dim a() As String

str = "abc,def,,,bdd"
a = Split(str, ",")<
<

从文本文件里读入这样一行字符串
"abc","def",,,"bdd"
实际上对应5个字段的值，
但是用Split函数处理后，得到的是前2个子串
有什么方法可以得到和原串一样的结果吗？
字符串有问题。应该把它们连接起来，象这样：
Dim s As String
s = "abc,def,,,bdd"

c:choujiang.txt——"abc","def",,,"bdd" 在其中,咋会是前2个子串?不会.Dim str As String
Dim a() As String

str = "abc,def,,,bdd"
a = Split(str, ",")<
<

在进行VB程序设计中，如果使用到外部dll动态库文件，是不是都要进行注册？ 我对VB不懂，特向大家请教，谢谢！不一定，看dll的用途！

第三方的组件是需要注册的你自己制做的DLL 在客户端肯定是要注册的说下你是怎么使用的。将你用到的dll都放到你执行文件同一个目录下，可能不需要注册。<

在进行VB程序设计中，如果使用到外部dll动态库文件，是不是都要进行注册？ 我对VB不懂，特向大家请教，谢谢！不一定，看dll的用途！

第三方的组件是需要注册的你自己制做的DLL 在客户端肯定是要注册的说下你是怎么使用的。将你用到的dll都放到你执行文件同一个目录下，可能不需要注册。<

1、以下的步骤全部使用VB6写出代码，EXCEL中包含SHEET1和SHEET2
2、向SHEET1自动插入EXCEL中一个按钮控件
3、给此按钮重命名为“跳转到SHEET2”
4、点击此按钮后触发事件，跳转到SHEET2

万分感谢，结贴。我发了两次帖子，请到http://topic.csdn.net/u/20090127/23/39527634-7599-437b-ab35-54d6942f8f85.html
再次给分，还有100分。
学习！！！thanks

1、以下的步骤全部使用VB6写出代码，EXCEL中包含SHEET1和SHEET2
2、向SHEET1自动插入EXCEL中一个按钮控件
3、给此按钮重命名为“跳转到SHEET2”
4、点击此按钮后触发事件，跳转到SHEET2

万分感谢，结贴。我发了两次帖子，请到http://topic.csdn.net/u/20090127/23/39527634-7599-437b-ab35-54d6942f8f85.html
再次给分，还有100分。
学习！！！thanks

rt

<
<
up打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.仍未解决???????????

rt

<
<
up打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.仍未解决???????????

rt

<
<
up打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.仍未解决???????????