 |
| |
[VB6.0] จะทำยังไงให้แสดงตารางใน DataGrid โดยใช้ ADODB.Recordset ในการอ่าน |
| |
 |
|
|
 |
 |
|
Code
ผมได้อ่านกระทู้ที่ท่านmr.winบอกแล้วงงตรง คือมันแต่รู้จะดึงมาใช้ยังไง ปกติเคยทำแต่ใช้ Adodc1(ADO Data Control)ครับ
'*** Query ***'
.Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Set objRec = New ADODB.Recordset
strSQL = "SELECT * FROM.... "
Conn.ConnectionString = strConnectionString
Conn.Open
objRec.Open strSQL, Conn, 1, 3
ตรง objRec.Open strSQL, Conn, 1, 3 นี่คืออะไรหรอครับ ไอ้1,3ง่า
แล้วก็ท่าผมจะให้แสดงตารางที่DataGrid1ของผมต้องเขียนไงหรอครับ
DataGrid1.DataSource = objRec มันบอกว่าผิลง่าครับ
Tag : .NET, Ms SQL Server 2005, Ms SQL Server 2008, VBScript, VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2011-05-11 12:10:05 |
By :
ming011 |
View :
5384 |
Reply :
4 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Go to : RS.open Sql,Conn,1,3 1 กับ 3 คืออะไรครับหมายถึงอะไร
ส่วน VB6 + DataGrid อ่านกระทู้นี้ครับ
Code (VB)
Dim g_Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
m_strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "D:\project\AotuCar\db\conf.mdb;uid=" & ";pwd=;"
g_Conn.Open m_strConn
Set cmd.ActiveConnection = g_Conn
With g_Conn
If .State = adStateOpen Then .Close
.ConnectionString = m_strConn
.CursorLocation = adUseClient
.ConnectionTimeout = 10000
.CommandTimeout = 10000
.CursorLocation = adUseClient
.Open
End With
If rs.State = adStateOpen Then rs.Close
strSql = "select * from Tbuser"
rs.Open strSql, g_Conn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
Go to : VB6 นะครับ รบกวนหน่อยคับ มันติดปัญหาตรง Set DataGrid1.DataSource = rs ครับ
|
| |
|
|
| |
| Date :
2011-05-11 13:54:56 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code
strConn = "Provider=SQLOLEDB;Data Source=MIN;" & _
"Initial Catalog=Northwind;" & _
"User ID=sa;Password=1234;"
strSQL = "SELECT CustomerID, CompanyName FROM Customers"
Dim cnNorthwind As New ADODB.Connection
cnNorthwind.Open strConn
Dim rsCustomers As New ADODB.Recordset
With rsCustomers
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
End With
Set rsCustomers = cnNorthwind.Execute(strSQL)
Set DataGrid1.DataSource = rsCustomers
|
| |
|
|
| |
| Date :
2011-05-11 14:54:23 |
By :
- |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ
|
| |
|
|
| |
| Date :
2011-05-12 00:47:33 |
By :
ming011 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
