十分感谢
解决方案 »
- 用户自定义类型装进Collection的问题
- 关于设置ABSOLUTEPOSITION属性的问题
- 请问能否在VB程序里关闭一个Excel的进程?
- ◆◆◆发现 VB6里面 超级离谱的 BUG !!!!!! 对VB感到气愤和失望 ◆◆◆
- 高分求vb连接sql anywhere 直接连接方法
- 寻一SQL语句!
- 重金求解:如何把我这个ocx的证书去掉?(内有下载地址)
- 如何使用ADO组件调用过程
- 请VB高手进来,帮我解决一个关于控件调用对象参数的问题,万分感谢!!!
- 如何使用外源的视频输入?答就有分!!
- 请教excel文件导入listview表格中且同时保存到access或sql数据库中
- DataGrid所有列内容相加
实例代码:
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim sdbname As String
Dim sPassword As StringPrivate Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
sdbname = App.Path + "\hxrkgl.mdb"
sPassword = ""
sql = "Select * from mdlk_sj"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
Set DataList1.DataSource = rs
DataList1.Refresh
End Sub