vb中ado控件编程随笔

易心博客网->技术文章->vb中ado控件编程随笔
本文引用地址:http://www.ex123.net/tb.asp?id=45
*****************************************************
原创作者：易心 QQ 343931221
个人网站：www.ex123.net
作品由易心原创，转载请保留此版权信息。
*****************************************************
1.sql语句中的insert语句
注意连接符&要和变量之间要有空格。
如：strsql = "insert into asp (code,type,description) values('" & keyword & "','" & optcheck & "','" & description & "')"
2.数据显示控件属性设置
datasource属性设置要加set
如：Set Text1.DataSource = Adodc1
recordsource属性设置要加引号
如：Text1.DataField = "Description"
整体代码：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\exerrsearch.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select description from asp"
Set Text1.DataSource = Adodc1
Text1.DataField = "Description"
总结：一个对象作为值付给对象变量要有set。
3.只有明确建立了recordset对象并且用其方法进行的sql操作，才能使用RecordCount属性。
4.recordset对象movenext方法的应用
If Not errrs.EOF Then
errrs.MoveNext
If errrs.EOF Then
Cmdnext.Enabled = False
Cmdprevious.Enabled = True
errrs.MoveLast
End If
TextDesp.Text = errrs("description")
TextKeyword.Text = errrs("code")
Opt1.Item(CInt(errrs("type"))).Value = True
lblnum.Caption = " 第" & errrs.AbsolutePosition & "条"
End If
注意技巧！！！！
相关日志：vb ado

查看回复回复日志