Question

vb怎么连接sql？

听说用ADO控件不错，但是不懂怎么用，还有代码要怎么写。
现在假设我VB里有个command1和text1，在sql里有个数据库名ep，表名table1，列名line1，想点击command1的时候text1能显示line1里面的东西。
应该怎么做？比如说ado的控件该怎么设置，然后在哪里哪里加上什么什么代码，需要什么头文件等等，越详细越好，我是菜鸟...
另外，代码越简单越好，我好分析每一句的作用

Answer 1

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

Answer 2

'容易，纯代码，粘到Form1，根据SQL是否采用Windows身份验证模式，代码做相应修改
'将conn.Execute后面的语句
改成自己的存储语句
'新建工程时,运行VB6.0后,必须在工程中引用ADO库，具体做法如下：
'工程--〉引用--〉选择“Microsoft
ActiveX
Data
Objects
2.0(或者2.1-2.8)Library”
Option
Explicit
''VB编译时强制声明变量.如果发现没有声明的变量会提示错误.
Dim
conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Dim
str
As
String
Dim
msg
As
String
Private
Sub
Form_Load()
'------------------------------------------------------------------------------------------------------------
OpenCn
"db",
"master"
'修改
第一个参数：本地SQL服务管理器名称"db"
;第二个参数：连接数据库名称"master"
'------------------------------------------------------------------------------------------------------------
openRs
("select
*
from
spt_datatype_info")
'执行查询语句
select
*
from
spt_datatype_info
返回所有列
Do
While
rs.EOF
<>
True
str
=
rs.Fields("ss_dtype")
'返回指定列
ss_dtype
msg
=
msg
+
str
+
"_"
rs.MoveNext
Loop
MsgBox
msg
'显示查询结果
'-------------------------------------------------------------------------------------------------------------
conn.Execute
("INSERT
INTO
spt_server_info
(attribute_id,attribute_name,attribute_value)
VALUES
("
&
Int(Rnd
*
99999999)
&
",'myname','myvalue')")
MsgBox
"成功添加一组数据!"
'-------------------------------------------------------------------------------------------------------------
conn.Execute
("UPDATE
spt_server_info
SET
attribute_name='myname',attribute_value='myvalue'
WHERE
attribute_id=1")
MsgBox
"已修改第一组数据!"
'-------------------------------------------------------------------------------------------------------------
End
Sub
Private
Function
OpenCn(ServerName
As
String,
DatabaseName
As
String)
As
Boolean
'连接数据库
Dim
mag
As
String
On
Error
GoTo
strerrmag
Set
conn
=
New
ADODB.Connection
conn.ConnectionTimeout
=
25
conn.Provider
=
"sqloledb"
conn.Properties("data
source").Value
=
ServerName
'SQL
Server
服务管理器
服务器名称
ServerName
conn.Properties("initial
catalog").Value
=
DatabaseName
'数据库名称
DatabaseName
conn.Properties("integrated
security").Value
=
"SSPI"
conn.Open
'-----------------------------------------------------------
SQL设密码的话,做以下修改
'With
conn
'
.CursorLocation
=
adUseClient
'
.Provider
=
"sqloledb"
'
.Properties("Data
Source").Value
=
SQLServerName
'
.Properties("Initial
Catalog").Value
=
DatabasesName
'
.Properties("User
ID")
=
UserID
'
.Properties("Password")
=
LoadPassword
'
.Properties("prompt")
=
adPromptNever
'
.ConnectionTimeout
=
15
'
.Open
'End
With
'-----------------------------------------------------------
OpenCn
=
True
MsgBox
"数据库连接成功!"
Exit
Function
strerrmag:
mag
=
"Data
can't
connect"
Call
MsgBox(mag,
vbOKOnly,
"Error:Data
connect")
Exit
Function
End
Function
Private
Function
cloCn()
'断开数据库
On
Error
Resume
Next
If
conn.State
<>
adStateClosed
Then
conn.Close
Set
conn
=
Nothing
MsgBox
"已将数据库连接断开!"
End
Function
Private
Function
openRs(ByVal
strsql
As
String)
As
Boolean
'连接数据库记录集
Dim
mag
As
String
On
Error
GoTo
strerrmag
Set
rs
=
New
ADODB.Recordset
With
rs
.ActiveConnection
=
conn
.CursorLocation
=
adUseClient
.CursorType
=
adOpenKeyset
.LockType
=
adLockOptimistic
.Open
strsql
End
With
openRs
=
True
Exit
Function
strerrmag:
mag
=
"data
not
connect"
&
vbCrLf
&
strsql
Call
MsgBox(mag,
vbOKOnly,
"error:connect")
openRs
=
False
End
Function
Private
Function
cloRs()
'断开数据库记录集
On
Error
Resume
Next
If
rs.State
<>
adStateClosed
Then
rs.Clone
Set
rs
=
Nothing
MsgBox
"已将数据库记录集连接断开!"
End
Function

Answer 3

一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按理解的方式来写(随意)。“服务器”就选择要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证
。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server
按下一步
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功。

Answer 4

在窗体上添加adodc控件
鼠标右键-adodc属性-在通用选项卡里，点生成，选for SQL Server驱动程序-下一步-连接选项卡里
1.输入服务器名称，2.使用Windows NT 集成安全设置。3.选择一个数据库
点测试连接，看看是否成功。按确定

点记录源选项卡，命令类型选8，命令文本（SQL）写：select * from table1
确定，就连接到SQL数据库的表table1了。

Private Sub Command1_Click()
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset.Fields("line1")
End If
End Sub

Answer 5

其实最简单的连接是不需要ADO控件的，在工程选项下选择引用然后找到Microsoft ActiveX data Objects 2.8 Library（如果有更高的选项也可以）
Private Sub Command1_Click()
dim cnado as new adodb.connection
dim rsado as new adodb.recordset
cnado.open "driver={sql server};server=(local);database=ep;uid=sa" '如果有密码的话后面要加上
rsado.Open "select * from table1", cnado, adOpenStatic, adLockReadOnly, -1
text1.Text =rsado.Fields ("line1").Value
end sub
如果字段里的信息增加用text1就只能显示一个了，不过这样应该满足你的要求了！！！