vb与数据库连接问题。
我对vb一点也不懂，但学习过SQL Sever，想知道如何将这两者连接在一起，以及这样做的好处！谢谢各位大虾！ 问题点数：0、回复次数：13Top
1 楼lxqlogo0（群子）回复于 2003-07-01 09:02:26 得分 0
'首先引用Microsoft Activex Data Objects 2.x Library
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "select * from 表 ", objcon, 3, 1
'再部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs
Top
2 楼intersun（.NET 3.0）回复于 2003-07-01 09:14:56 得分 0
还要有set objcon = new New ADODB.Connection
set objrs = New ADODB.Recordset
生成对象实例。Top
3 楼aiguo25（青春无悔）回复于 2003-07-01 10:47:37 得分 0
对于入门的，应该用控件。用ado可以绑定sql数据库。最简单的就是数据库向导。一路下来，就生成了一个数据库窗体，其实里面是一个ado和datagide的结合。数据源由ado的recordsource控制Top
4 楼likesome（梦龙）回复于 2003-07-01 11:09:48 得分 0
首先，引用
Microsoft Activex Data Objects 2.x Library
对于SQL server 2000必需2.6以上
象你这样建设还是使用ADO控件
右键属性里有你想要的设置，不要你写一行代码就能与SQLSERVER连接
Top
5 楼mark3798（.net菜鸟）回复于 2003-07-02 15:38:19 得分 0
Option Explicit
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strCnn As String
Dim sTokens() As String
Set cnn = New ADODB.Connection
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
strCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" &
"Persist Security Info=False;Initial Catalog=" & databaseName & ";Data Source=" & ServerName
cnn.Open strCnn
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & "Query Successful"
Else
Set rst = New ADODB.Recordset
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条记录"
Debug.Print MsgString
End If
ExecuteSQL_Exit:
Set cnn = Nothing
Set rst = Nothing
Exit Function
ExecuteSQL_Error:
MsgBox "没有连接到数据库", vbOKOnly + vbExclamation, "警告"
Resume ExecuteSQL_Exit
End Function
Top
6 楼mark3798（.net菜鸟）回复于 2003-07-02 15:38:45 得分 0
也可搜索以前别人发的贴子！Top
7 楼planetike（胜哥哥）回复于 2003-07-02 16:59:55 得分 0
做个朋友，给你例子。
planetike@hotmail.comTop
8 楼taosihai1only（无招胜有招）回复于 2003-07-04 12:57:26 得分 0
taosihai158@sohu.com
我也要一份，可以吗？Top
9 楼ht1980（葬月)(马甲）回复于 2003-07-05 18:03:02 得分 0
还发吗？谢谢啊
ht_z@hotmail.comTop
10 楼blackapple8（铁皮西瓜）回复于 2003-07-05 21:55:09 得分 0
我也想学习学习,给我一个吧blackapple8@yahoo.com.cnTop
11 楼xinshou1979330（Success.java）回复于 2003-07-06 08:22:15 得分 0
同意一楼的
UPTop
12 楼smuzy（smuzy）回复于 2003-07-06 12:04:45 得分 0
关心一下这个贴子
我想继续回复但是不能回复三次
请哥们帮帮忙顶一下
http://expert.csdn.net/Expert/TopicView1.asp?id=1994682Top
13 楼blueoutlander（陌生人）回复于 2003-07-06 21:52:39 得分 0
我最近想做一个！
给我个好吗？
blueoutlander@163.comTop
