VB程序员博客
02 8th, 2010
我用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 cns
adodc1.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 为什么要符号呢 ? 经常会有有一堆的单双引号逗号混在一起, 稍不留神便多一个或少一个, 找了老半天有时还让你找不出来…..
02 2nd, 2010
从文本文件里读入这样一行字符串
"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, ",")
<
<
02 2nd, 2010
从文本文件里读入这样一行字符串
"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, ",")
<
<
01 25th, 2010
在进行VB程序设计中,如果使用到外部dll动态库文件,是不是都要进行注册? 我对VB不懂,特向大家请教,谢谢!
不一定,看dll的用途!
第三方的组件是需要注册的
你自己制做的DLL 在客户端肯定是要注册的
说下你是怎么使用的。
将你用到的dll都放到你执行文件同一个目录下,可能不需要注册。
<
01 25th, 2010
在进行VB程序设计中,如果使用到外部dll动态库文件,是不是都要进行注册? 我对VB不懂,特向大家请教,谢谢!
不一定,看dll的用途!
第三方的组件是需要注册的
你自己制做的DLL 在客户端肯定是要注册的
说下你是怎么使用的。
将你用到的dll都放到你执行文件同一个目录下,可能不需要注册。
<
01 12th, 2010
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
01 12th, 2010
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
01 10th, 2010
rt
<
<
up
打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.
<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.
仍未解决
???????????
01 10th, 2010
rt
<
<
up
打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.
<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.
仍未解决
???????????
01 10th, 2010
rt
<
<
up
打印方向只有二个,纸张竖放和纸张横放,上面说的就是这两种情况,你说的居中打印是将内容打在纸的中间?这和打印方向无关.
<
看下http://www.vbgood.com/viewthread.php?tid=90138&extra=&page=1这里的讨论.
仍未解决
???????????