VB 连接sql代码

来源：百度知道编辑：UC知道时间：2024/06/01 17:19:52

Public Conn As ADODB.Connection

Dim CN As New ADODB.Connection

'cs.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yypost;Data Source=."
CN.Provider = "SQLOLEDB.1" 'sqlserver
CN.ConnectionTimeout = 5
CN.CursorLocation = adUseClient
Option Explicit
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Show
Conn.Open "Provider=SQLOLEDB;Data Source=main;UID=sa;PWD=1234;initial catalog=vb"
Set rs = Conn.Execute("select * from khxx")
Print rs("id")
rs.Close
End Sub

——————————————
提示我无效外部过程
怎么生成，能详细点么？

Option Explicit'这一句应放在首行,如果不知道该怎么用就删除这一句

Dim conn As ADODB.Connection'定义连接
Dim rs As ADODB.Recordset'定义记录集
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.open"Provider=SQLOLEDB;Data Source=main;UID=sa;PWD=1234;initial catalog=vb"
Set rs = Conn.Execute("select * from khxx")
Print rs("id")
rs.Close
End Sub

vb连接sql代码写在哪里 VB.NET对SQL数据库怎样连接啊？求代码？用SQL如何和VB连接?代码怎么编? vb与SQL连接 vb连接SQL数据库 VB 连接到SQL VB怎么连接SQL？ vb连接sql VB连接SQL出错 vb连接sql----高分