＋设为首页 ＋添加到收藏夹
我想请教一下
就是如何在vb中用sql语言与数据库进行连接
并对数据库进行操作以及如何实现数据库的浏览
谢谢！
dim db as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
sql="数据库驱动程序+用户登陆信息+数据库路径"
db.open sql
sql="select * from tableName"
rs.open sql,db,1,3
进行其他操作
rs.close
db.close
dim cn As New ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=you_SQLDATABASENAME;Data Source=(local)"
dim rs As New ADODB.Recordset
dim sqlstr as string
sqlstr="select * from you_table"
rs.Open sqlstr, cn, 1, 1
dim teststr as string
do while not rs.eof
teststr=rs.fields("you_colname")
debug.print teststr
rs.movenext
loop
先按ctrl+T,选择ms ado控件。
dim cn As New ADODB.Connection定义ADO的Connection变量
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=you_SQLDATABASENAME;Data Source=(local)"打开并连接到SQL数据库
dim rs As New ADODB.Recordset定义ADO的Recordset变量
dim sqlstr as string定义SQL语句变量
sqlstr="select * from you_table"SQL语句，作用是从you_table表中选择所有的记录
rs.Open sqlstr, cn, 1, 1执行SQL语句
dim teststr as string定义变量
do while not rs.eof
teststr=rs.fields("you_colname")把you_table表中you_colname的值赋给teststr变量
debug.print teststr显示到立即窗口
rs.movenext移动到下一行记录集
loop
dim cnn as new adodb.connection
dim db as new adodb.recordset
dim sql as string
dim TableName as string 数据库名
sql="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=you_SQLDATABASENAME;Data Source=(local)"
cnn.open sql
sql="select * from " & TableName 反正就是可以是任意一条SQL语句
db.open sql,db,adstatic,adopenonly
要是只想执行不想看可以这样：
sql="select * into abc from " & TableName
cnn.excute(sql)
set datagrid1.datasource=db
rs.close
db.close
先连接数据库
在定义sql=string
写sql
运行，
set rs=con.execute(sql)
我想，你还是去找些VB数据库访问的书来看看吧。书上有大把的代码、例子。我们在这里很难一下子说清楚的。马上行动！
在ADO中执行SQL语句可以用：连接对象的execute方法或者记录集对象的open方法。
同意楼上的说法
建议看看书
