怎样在程序里通过语言与数据库进行连接。

Question

怎样在程序里通过语言与数据库进行连接。例如：access数据库
地址  c:\vb\数据库.mdb
数据库里包含很多表，其中一张表名为系统用户资料表，里面有两个字段：
用户名      密码
lewi        111
jeason      222 
界面上有一个按钮，对其编程
怎么才能将 lewi赋予变量name  ,  name的类型又该是什么？ 

Answer 1

Conn = ";DSN=lls;uid=sa;pwd=bizsky;database=tourinfo;SRVR=sun"
  Set City_DB = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, True, Conn)
  SQL = "select City_ID,City_Cname from City"
  Set City_RS = City_DB.OpenResultset(SQL, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
  给分哦

Answer 2

dim name as String
dim Rec adodb.recordset
dim Prvstr as string
dim Strcnn as string
prvstr="microsoft.jet.oledb.4.0;persist security info=false;data source=c:\vb\数据库.mdb"
strcnn="select 用户名 from table where 用户名='lewi'"
set rec=new adodb.recordset
rec.open strcnn,prvstr
if not rec.eof then
name=rec.fields("用户名")
end if
rec.close

Answer 3

Dim adoCnn As New adodb.Connection
 Dim adoCmm As New adodb.Command
 Dim adoRec As New adodb.Recordset
 
 adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
 
 adoCmm.ActiveConnection = adoCnn
 adoCmm.CommandType = adCmdText
 adoCmm.CommandText = "select * from Customers"
 Set adoRec = adoCmm.Execute
 Set MSHFlexGrid1.DataSource = adoRec

Answer 4

还想问一下，这些程序应该编在哪，是在sub main()还是确定按钮

Answer 5

数据库连接的语句放置在sub main()中，对表的操作放在form中按钮的click下。

Answer 6

谢谢大家，尤其是 zhangbob(bob) 我在论坛里找到答案了