vb连接sqlserver实例
‘壹’ vb连接sqlserver
在系统中建立ADO公共查询模块
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '执行SQL语句并返回Recordset对象
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open CONN
'打开连接
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" 查询成功"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
'获取记录的条数
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
然后再应用模块中就可以使用
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
txtSQL = "select * from ... "
Set mrc = ExecuteSQL(txtSQL, MsgText)
查询了
‘贰’ 求vb连接sql server 的例子
VB连接Sql+Server数据库操作实例
http://download.csdn.net/detail/delicacy123/5092242
有下载
‘叁’ VB 连接 SQLSERVER ,带实例和端口，连接串怎么写
Provider=SQLOLEDB.1;Data Source=192.168.1.2\SQL001,1435;Initial Catalog=;User ID=sa;Password=123
‘肆’ VB 如何使用ADODB控件链接SQLServer数据库
1、有向导可用，你在屏幕左侧看跟工具箱挨着的有个数据源管理，这里点新数据源，就可以向导连接。
2、那个Microsoft ActiveX Data Object缩写简称ADO，很好找，是有的，有空q我，给你发截图看。
3、数据绑定没有向导，也不需要，简单的设置一个datasource属性即可，不需要复杂的向导。
4、不是用ADO控件，而是用ADO.net程序集，要连接到 Microsoft SQL Server 7.0 或更高版本，请使用 SQL Server .NET Framework 数据提供程序的 SqlConnection 对象。 要连接到 OLE DB 数据源，或连接到 Microsoft SQL Server 6.x 或更低版本，请使用 OLE DB .NET Framework 数据提供程序的 OleDbConnection 对象。
5、应该是Adodc1.ConnectionString="xxxxxxxxx" 引号中为连接字符串，具体的语法建议你按F1看MSDN的帮助，很详细。
6、还有问题可以共同探讨，qq369220969
‘伍’ vb连接数据库sqlserver的问题
其实不难的，既然你已经会用DATAGRID ADODC1绑定数据，下一不就好办了。
1、首先添加，判断是否重复出现(免掉)， adodc1.addnew
adodc1.rcoutset.fileds(0)="插入的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh
2.删除语句：
dim st,sql as
string
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
st=adodc1.recoutset.fileds(0).value
sql="recourtsource属性里面的语句 where **='"st"'"
adodc1.delete
3.更新语句:
adodc1.rcoutset.fileds(0)="更新过的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh ‘那些数据来源可以是文本框等，你要自己想了，其实不难的。
4、假如都有判断是否唯一语句（避免插入删除异常时），
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句 where 条件"
if adodc1.rcoutset.eof=false then
msgbox"出错"
exit sub
end if '这个条件插在他们的前面就可以判断了。
‘陆’ VB连接sqlserver查询。
提问题时。请保持良好的，代码格式，这样看的人才不会迷糊 Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Label6.Caption = "今天的课程如下："
rs.Open "select 第一二节 from 课表 where 星期 ='" & Text5.Text & "'", cnn, adOpenDynamic, adLockOptimistic
Text1.Text= rs(0)
rs.Close
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=课程;Data Source=WINBLZK9FOGM2YU"
End Sub
‘柒’ 谁能给个VB和SQLSERVER相结合的实例具体操作也写上，本人新手，需要一步一步的教，谢谢各位大师们
你到it论坛看看
‘捌’ 怎样在vb中引用SqlServer中的数据
首先要连接数据库
我用的是
Call openRs("select * from 数据库表 where 姓名='" & trim(Text1.Tex)& "'")
If Rs.EOF Then
MsgBox "用户名错误！", vbInformation, "系统提示"
Rs.Close
Exit Sub
End If
‘玖’ vb6.0 如何连接SQLSERVER2000
俺 是一楼的。
你的E_Mail是什么，我发给你一个我作的小程序。
今天快要下班了，你在网络里给我发消息吧。我上网就发给你。
＝－－－－－－－
发给你了。
－－－－－－－－－－－－－－－－－－－
工程－引用
Microsoft ActiveX Data Objects 2....（选一个高版本的）
Set conn = New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr
Set rs = New ADODB.Recordset
sql = "select * from ask_info"
rs.Open sql, conn, 1
用法和ASP一样的。
－－－－－－－－－－－－－－－－－－－－－－－－－
‘拾’ vb 连接SQLSERVER
mdf,不能直接用，要带上sqlserver才能用
在sqlserver附加上这个mdf就行了，
连接句不变