2,504
社区成员
发帖
与我相关
我的任务
分享请问，vba 如何通过odbc 和sql server 数据库连接？帮忙！！
请问，vba 如何通过odbc 和sql server 数据库连接？帮忙！！请给个例子，谢谢了
...全文
请发表友善的回复…
发表回复
xiaoxinghappy 2002-12-11
- 打赏
- 举报
<HTML> <HTML>
<HEAD><TITLE>窗体与元素</TITLE></HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
Dim pAdoCn
Dim adoRst
Sub cmdConnect_OnClick
Dim strCon
strCon=""Driver="{SQL SERVER};Server=SERVER;Uid=SA;Pwd=;Database=SONG"
Set pAdocn=CreateObject("ADODB.Connection")
pAdoCn.CursorLocation=3
pAdocn.Open strCon
End Sub
Sub cmdShow_OnClick()
Dim thisForm
Set thisForm=Document.frmForm
adoRst=CreateObject("ADODB.Recordset")
Set adoRst=pAdocn.Execute("Select * From song Where [name] like ""%梦%""")
if adoRst.Eof then Exit Sub
adoRst.MoveLast
adoRst.MoveFirst
MsgBox adoRst.RecordCount
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdPre_OnClick()
Dim thisForm
If adoRst Is Nothing Then Exit Sub
If adoRst.Bof Then Exit Sub
adoRst.MovePrevious
If adoRst.Bof Then Exit Sub
Set thisForm=Document.frmForm
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdNext_OnClick()
Dim thisForm
If adoRst Is Nothing Then Exit Sub
If adoRst.Eof Then Exit Sub
adoRst.MoveNext
If adoRst.Eof Then Exit Sub
Set thisForm=Document.frmForm
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdGetCount_OnClick()
Dim thisForm
Dim tmpRst
Set thisForm=Document.frmForm
tmpRst=CreateObject("ADODB.Recordset")
Set tmpRst=pAdocn.Execute("Select Count(*) as F_A From song Where [name] like ""%刘%""")
MsgBox tmpRst.Fields(0).Value
tmpRst.Close()
Set tmpRst=Nothing
End Sub
Sub Form_UnLoad()
adoRst.Close
Set adoRst=Nothing
pAdocn.Close
Set pAdocn = Nothing
End Sub
-->
</SCRIPT>
<BODY>
<CENTER>
<FORM NAME="frmForm">
<Input Type = "Text" Name="T1"><p>
<Input Type = "Text" Name="T2"><p>
<Input Type = "Text" Name="T3"><p>
<Input Type = "Text" Name="T4"><p>
<Input Type = "Button" NAME="cmdConnect" VALUE="连接数据库"><p>
<Input Type = "Button" Name="cmdShow" VALUE="显示"><p>
<Input Type = "Button" NAME="cmdPre" VALUE="上一条"><p>
<Input Type = "Button" Name="cmdNext" VALUE="下一条"><p>
<Input Type = "Button" Name="cmdGetCount" VALUE="记录数"><p>
</FORM>
</CENTER>
</BODY>
</HTML>
<HEAD><TITLE>窗体与元素</TITLE></HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
Dim pAdoCn
Dim adoRst
Sub cmdConnect_OnClick
Dim strCon
strCon=""Driver="{SQL SERVER};Server=SERVER;Uid=SA;Pwd=;Database=SONG"
Set pAdocn=CreateObject("ADODB.Connection")
pAdoCn.CursorLocation=3
pAdocn.Open strCon
End Sub
Sub cmdShow_OnClick()
Dim thisForm
Set thisForm=Document.frmForm
adoRst=CreateObject("ADODB.Recordset")
Set adoRst=pAdocn.Execute("Select * From song Where [name] like ""%梦%""")
if adoRst.Eof then Exit Sub
adoRst.MoveLast
adoRst.MoveFirst
MsgBox adoRst.RecordCount
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdPre_OnClick()
Dim thisForm
If adoRst Is Nothing Then Exit Sub
If adoRst.Bof Then Exit Sub
adoRst.MovePrevious
If adoRst.Bof Then Exit Sub
Set thisForm=Document.frmForm
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdNext_OnClick()
Dim thisForm
If adoRst Is Nothing Then Exit Sub
If adoRst.Eof Then Exit Sub
adoRst.MoveNext
If adoRst.Eof Then Exit Sub
Set thisForm=Document.frmForm
thisForm.T1.Value=adoRst.Fields(0).Value
thisForm.T2.Value=adoRst.Fields(1).Value
thisForm.T3.Value=adoRst.Fields(2).Value
thisForm.T4.Value=adoRst.Fields(3).Value
End Sub
Sub cmdGetCount_OnClick()
Dim thisForm
Dim tmpRst
Set thisForm=Document.frmForm
tmpRst=CreateObject("ADODB.Recordset")
Set tmpRst=pAdocn.Execute("Select Count(*) as F_A From song Where [name] like ""%刘%""")
MsgBox tmpRst.Fields(0).Value
tmpRst.Close()
Set tmpRst=Nothing
End Sub
Sub Form_UnLoad()
adoRst.Close
Set adoRst=Nothing
pAdocn.Close
Set pAdocn = Nothing
End Sub
-->
</SCRIPT>
<BODY>
<CENTER>
<FORM NAME="frmForm">
<Input Type = "Text" Name="T1"><p>
<Input Type = "Text" Name="T2"><p>
<Input Type = "Text" Name="T3"><p>
<Input Type = "Text" Name="T4"><p>
<Input Type = "Button" NAME="cmdConnect" VALUE="连接数据库"><p>
<Input Type = "Button" Name="cmdShow" VALUE="显示"><p>
<Input Type = "Button" NAME="cmdPre" VALUE="上一条"><p>
<Input Type = "Button" Name="cmdNext" VALUE="下一条"><p>
<Input Type = "Button" Name="cmdGetCount" VALUE="记录数"><p>
</FORM>
</CENTER>
</BODY>
</HTML>
