在VB中为什么不可以直接实例化ADO对象!是不是要导入什么名称空间.
解决方案 »
- 如何使用 winio.dll 检测硬件
- 关于几个VB技巧的问题
- 问一个关于隐藏任务栏右边图标的问题。
- VB编译成的.EXE,在关闭时,"0x01a302b2"指令引用的"0xa302b001"内存,该内存不能为"weitten"
- 奇怪呀;用datagrid更新数据库,如果只有一列修改不出错,2列以上就出错!高手请进
- 请教各位大侠!关于数据库的
- 50分在线等:如何在VB中把MSSQL分离出的数据文件附加一台MSSQL服务器上?
- VS2010 串口通信
- 那位大哥知道有自主知识产权的国内的打印机的研究、生产商家?
- vb提问 rm ram 控件
- 【50分求解】MDIform下的show的用法????????????????????
- 动态设置RichTextBox高度
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If
rs.AddNew
rs!ID = "编号"
rs!Memo = "备注"
rs.Update
End SubPrivate Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub