資料庫sql2012
連接函式可正常連接
Sub connect()
On Error GoTo err
Dim strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName, Cnnstr As String
strSQLServerName = "192.168.x.x" 'SQL Server的服務器名稱
strSQLDBUserName = "sdddd45a" 'SQL Server資料庫的用戶名
strSQLDBPassword = "12648553" 'SQL Server資料庫的密碼
strSQLDBName = "xxxworxxxd" 'SQL Server資料庫的資料庫實體名稱(成品用)
Cnnstr = "PROVIDER=MSDASQL;DRIVER={SQL SERVER};Server=" & strSQLServerName & ";Database=" & strSQLDBName & ";UID=" & strSQLDBUserName & ";PWD=" & strSQLDBPassword & ";"
conn = New ADODB.Connection
conn.ConnectionTimeout = 0
conn.CommandTimeout = 100000000
conn.Open(Cnnstr)
err:
Sleep(3000)
End Sub
Sub rsOpendele(ByVal sql As String)
On Error GoTo err
rs = New ADODB.Recordset
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic) ' adLockOptimistic
Exit Sub
err:
Sleep(3000)
End Sub
Sub rsOpen(ByVal sql As String)
On Error GoTo err
rs = New ADODB.Recordset
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
' rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Exit Sub
err:
Sleep(3000)
End Sub
用 rs.Fields ("欄位名").Value 可正常取得 rsopen(sql) 中的資料。
現在想請教怎么把
sql = "select * from wxxx"
rsopen(sql)
或
conn.excute (sql)
的結果顯示到
vb 2008 的DataGridView1里來，
謝謝！
uj5u.com熱心網友回復：
dim ds as new datasetusing da as new SqlDataAdapter("select * from xxx",cn) '(cn or cnstr)
da.fill(ds)
end using
datagridview1.datasource=ds.table(0)
uj5u.com熱心網友回復：
如果不用資料系結，也可以手動ADD.參考我下面的。localtable = localds.Tables.Item(0)
localrow = localtable.Rows.Item(i)
DataGridView1.Rows.Add()
DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
DataGridView1.Rows.Item(i).Cells(0).Value = localrow.Item(0)
記得加FOR NXET 陳述句。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130496.html
上一篇：webclient 不處理DownloadDataCompleted，DownloadProgressChanged事件，求解決。
下一篇：虛擬串口實作