Question

VB连接sqlserver数据库问题

做毕业设计 用到ado这个控件 书里提到的很少 我有很多问题 老师也不管
我在本机建立了数据库 medicine 每个模块的代码也都差不多完成了 是不是用ado在开头 弄完 在其他几个模块中就不用在弄ADO了呢? 例如在用户登陆中设置了conn.``` ``` ``` 其他几个就不用在弄了 还是每个模块都要弄 还有
怎么写这段 连接SQL的代码呢??用不用在特意创建个关于这个的声明? 最好有人能指点指点我 555
好不容易临毕业想学点东西 可是 人模狗样的给我折磨的很郁闷
分数我可以加的

Answer 1

在系统中建立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)
查询了

Answer 2

1.如果你说的是adodc,那只能在一个窗体里面用.
adodc 的连接可以不用打代码,右键点ado控件,再点属性,就可以设置连接属性
2.如果你说的是Ms ActiveX Data Objects 2.6 那么这个可以在模块里声明一个通用的Connection,在其他窗体调用.调用的时候SQL语句在Recordset属性里.
如: Public a as new adodb.connection
public a_rec as new adodb.Recordset

Answer 3

Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
'再定义一个记录集，用于放你的那个select的
dim rs as new adodb.recordset
'设置conn的连接字符串，就是你的那个
conn.ConnectionString = "driver={SQL Server};Server=4ACDF6B497724DF;Uid=lv;pwd=woaini;database=mingcheng"
'然后
conn.open '打开这个连接 设置记录集查询语句
dim strSQL as string
strSQL="select * from data "
rs.open strsql,conn

'这样就可以从记录集rs中取数据了，
txt.text=rs.field("某字段名").value