菜鸟请教VB与SQL的连接方法!

Question

小弟请教,VB与SQL的连接方法,听说有好几种吧,但是总是看不明白,请高手能给予指点,最好写点实例吧,先谢了!

Answer 1

public Strconnect as string 
public rs as new ADODB.Recordset
Public Conn As New ADODB.Connection
public Strconnect as String 
 Strconnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=erp;Data Source=数据库名" 
if conn.state=1 then conn.close 
conn.open Strconnect
if rs.state=1 then rs.close 
rs.open "select * from 表",conn,3,2

Answer 2

Dim Rs As rdoResultset
Dim QrySelect As rdoQuery
Dim sSql As String sSql="Select TEL, OFFICE, EMAIL From USERDATA "
Set QrySelect = g_Cn.CreateQuery("", sSql)
Set Rs = QrySelect.OpenResultset(rdOpenForwardOnly) Do Until Rs.EOF
'sTEL = Rs.rdoColumns("TEL") & "" 
'sOFFICE = Rs.rdoColumns("OFFICE") & "" 
'sEMAIL = Rs.rdoColumns("EMAIL") & "" 
Rs.MoveNext
Loop
Set Rs = Nothing

Answer 3

Dim QryInsert As rdoQuery
Dim sSql As String On Error Resume Next
sSql="Insert Into USERDATA (TEL, OFFICE, EMAIL) " & _
"Values (?, ?, ?) "
Set QryInsert = g_Cn.CreateQuery("", sSql)
With QryInsert
'.rdoParameters(0).Type = rdTypeVARCHAR
'.rdoParameters(0) = sTEL
'.rdoParameters(1).Type = rdTypeVARCHAR
'.rdoParameters(1) = sOFFICE
'.rdoParameters(2).Type = rdTypeVARCHAR
'.rdoParameters(2) = sEMAIL
.Execute
End With

Answer 4

Dim QryUpdate As rdoQuery
Dim sSql As String On Error Resume Next
sSql="Update USERDATA Set TEL = ? , OFFICE = ? , EMAIL = ?  "
Set QryUpdate = g_Cn.CreateQuery("", sSql)
With QryUpdate
'.rdoParameters(0).Type = rdTypeVARCHAR
'.rdoParameters(0) = sTEL
'.rdoParameters(1).Type = rdTypeVARCHAR
'.rdoParameters(1) = sOFFICE
'.rdoParameters(2).Type = rdTypeVARCHAR
'.rdoParameters(2) = sEMAIL
.Execute
End With

Answer 5

Public Conn As New ADODB.Connection   '申明一个连接
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=erp;Data Source=数据库名"     '打开连接

Answer 6

dim Conn As New ADODB.Connection   '申明一个连接
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=erp;Data Source=数据库名"     '打开连接dim rs as new adodb.recordset   '声明记录集rs.open "select * from Table",conn   '利用已打开的连接和Sql语句填充记录集

Answer 7

请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02