Public con As ADODB。Connection, Str As String, ado As ADODB。Recordset, sql As StringPublic i As Integer, conn As StringPublic Sub ado_Open()Set con = New ADODB。
Connectionconn = "SQL"If conn = "SQL" Then Str = "Driver={SQL SERVER};SERVER= ;Uid=SA;Pwd=;Database=tempdb"If conn = "Access" Then Str = "Driver={Microsoft Access Driver (*。
mdb)};DBQ=" & App。Path & "\ b;pwd=;ReadOnly=True"con。Open StrEnd SubPublic Sub Newado()Set ado = New ADODB。Recordsetado。
CursorLocation = adUseClientado。Open sql, con, adOpenDynamic, adLockBatchOptimisticEnd SubPrivate Sub Form_Click()ado_Opensql = "select top 1 * from student where 学号='" & text1 & "'"NewadoIf ado。
RecordCount <> 0 Thentext2 = ado。Fields(1)text3 = ado。Fields(2)text4 = ado。Fields(3)End IfEnd Sub答案补充不太明白你的随机方式是什么意思。
答：VB连接SQL数据库示例 作者：hdf007 日期：2005-04-17 13:10:56 本文出自网易虚拟社区（ ），如需转载，请联系原作者或网易 先建一个...详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
