关于visual basic 6......

juki1488

你们知道要打什么vb coding可以拿到在sql server里的database呢？
URGENT!!

juki1488

惨了！没人懂吗？？？

V4ndrake

这个是我一整个Chapter的内容……
你要人家怎么答你……

juki1488

你有读到vb connect string吗？

hooi1983

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public constr As String
Public sql As String

Public Sub Connection()
constr = "Provider=SQLOLEDB.1;Persist Security Info=false;Initial Catalog=EBiz;Data Source=AGENT;User ID=sa;Password=1234"
If con.State = adStateOpen Then con.Close
con.Open constr
con.CursorLocation = ADODB.adUseClient
rs.ActiveConnection = con
End Sub

我所写的开头

V4ndrake

原帖由 juki1488 于 15-12-2005 06:47 PM 发表
你有读到vb connect string吗？

有瓜
你是指那一个？哈哈哈

juki1488

原帖由 hooi1983 于 16-12-2005 07:47 PM 发表
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public constr As String
Public sql As String

Public Sub Connection()
constr = "Provider=SQLOLEDB.1;Persist Security I ...

如果是ODBC的话，就将ADODB换去ODBC吗？
可以add到data吗？

hooi1983

原帖由 juki1488 于 16-12-2005 10:43 PM 发表


如果是ODBC的话，就将ADODB换去ODBC吗？
可以add到data吗？

你所谓的 ODBC 有没有用到 DSN？
我用 DSN 的写法

Public con As ADODB.Connection
Public rs As ADODB.Recordset
Public sql As String

Public Sub Connection()
Set con = CreateObject("adodb.connection")
con.Open ("filedsn=Ebiz")
End Sub

Public Sub Recordset()
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = con
End Sub

**************************************************

Private Sub cmdAdd_Click()
sql = "execute sp_InsertShopper '" & txtUName & "','" & txtPWD & "'"
Set rs = con.Execute(sql)
MsgBox rs("ShopperID") & " Inserted", vbInformation
Clear
End Sub

Private Sub Form_Load()
Connection
Recordset
End Sub

Private Sub Clear()
txtUName = ""
txtPWD = ""
txtUName.SetFocus
End Sub

这里用 SQL Server 的 Stored Procedure
你自己换去 sql 的 add command