1个回答
展开全部
1,vb连接到ACCESS,
2,读取数据。
3.将数据填充到LISTVIEW
2,读取数据。
3.将数据填充到LISTVIEW
追问
首先非常感谢你的回答,能否再说的详细一点,比如:我如何连接数据库(不能用ado控件) 我给加分哦
追答
引用ADO就可以了。
Public WuConn As New ADODB.Connection
Public WuRs As New ADODB.Recordset
Function ConnToMDB(ByVal s_sql As String) As Integer
Dim strSql As String
On Error GoTo err
' strsql = "provider=microsoft.jet.oledb.4.0;" & _
' "data source=" & App.Path & "\thdata.mdb"
strSql = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & s_sql
WuConn.ConnectionTimeout = 15
WuConn.CursorLocation = adUseClient
WuConn.Mode = adModeReadWrite
WuConn.Open strSql
ConnToMDB = 0
err:
ConnToMDB = 1
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询