Question

请教个vb数据库问题

如果编写个简单的学生成绩查询系统，怎么样在vb里面连接外面做好的一个数据库?我是新手，请高手解答详细点，谢谢
现我表名字是2，数据库名字也是2，表中有6条信息，分别是学号，姓名，性别，语文，数学，外语,在VB里建立了6个text要求是在text1里输入学号，按下查询按纽，然后能够调用学号1的详细信息显示在text2-text6里，小人实在是没试过这东西，所以想请各位大大发个样例或直接帮我做一下，感激不尽

Answer 1

用ADO控件，
方法:在“工程”-〉“部件”-〉“控件”选项卡里找到microsoft ado data control 6.0，在其前面选项打勾，点击应用及确定，然后控件栏就看得见多出来个adodc控件.
然后在vb里建立一个窗体,，把其在窗体上放一个adodc控件(adodc1)，通过生成odbc文件数据源与配置adodc1的属性跟access连接,把adodc1中的sql语句写为:select * from 2 where 学号='"& text1.text &"'
在窗体上放6个文本框和一个查询按钮(command1),然后在属性窗口中设置text2文本框的datasource属性为adodc1,datafield属性为姓名,同理设置text3,text4,text5,text6的datasource属性为adodc1,datafield属性分别为:性别,语文,数学,外语.
在command1的click事件中写如下代码:
if text1.text="" then
msgbox "请输入学号",vbokonly,"提示"
exit sub
end if
adodc1.recordsource="select * from 2 where 学号='"& text1.text &"'"
adodc1.refresh
if adodc1.recordset.recorodcount=0 then
msgbox "未找到相应记录",vbokonly, "提示"
exit sub
end if

以上是比较简单易上手的办法

Answer 2

是SQL数据库还是ACCESS数据库？
先在工程的引用中选择：Microsoft ActiveX Data Objects 2.7 Library选项
-----------------------------------------------
一下代码哪里都通用，看你想通过什么控件运行它了。你可以先放到按钮里，试试效果，然后再慢慢学习！
-----------------------------------------------

1、SQL链接
Dim rs As ADODB.Recordset
Dim sql As String
Dim pubConn As New ADODB.Connection
pubConn.ConnectionString = " Provider=MSDASQL.1;DRIVER=SQL Server;SERVER=用户IP;UID=用户ID;PWD=密码;DATABASE=数据表所在数据库"
pubConn.Open
Set rs = GetRsBySql("select distinct TBA from Test", pubConn)
If Not rs.EOF Then
Combo1.Text = "选择查询类型"
While Not rs.EOF
Combo1.AddItem rs.Fields("TBA")
rs.MoveNext
Wend
Else
Combo1.Text = "记录空！"
End If
rs.Close
Set rs = Nothing
---------------------------------------------
2、ACCESS数据库
Dim rs As ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim SQL As String
Dim StrConn As String

StrConn = "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & App.Path & "\数据库.mdb"--ACCESS数据表的路径
Conn.Open StrConn
SQL = "select * from Users"
Set rs = GetRsBySql(SQL, Conn)
While Not rs.EOF
Combo1.AddItem rs!用户
rs.MoveNext
Wend
Combo1.ListIndex = 0
rs.Close
Set rs = Nothing
-----------------------------------------模块代码：
Public Function GetRsBySql(ByVal strsql As String, ByVal Conn As ADODB.Connection) As ADODB.Recordset
On Error GoTo ErrHandle
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open strsql, Conn
Set GetRsBySql = rs
Set rs = Nothing
Set Conn = Nothing
Exit Function
ErrHandle:
Err.Raise Err.Number, , Err.Description
Err.Clear
End Function

其实无论是SQL还是ACCESS数据库，他们的操作都是一样的，只是链接语句有些不同！

Answer 3

<!--数据库连接-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库名称")
conn.Open connstr
%>
<!--测试数据库-->
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from 表名"'此处如果要按要求做查询需要对SQL设置
rs.open "select * from 表名",conn,1,1
if rs.Recordcount>0 then
response.write "数据库已连接并且包含数据"
else
response.write "数据库已连接但不包含数据"
end if
%>

Answer 4

很简单的随便在网上找都多得很