VB高手指点我一下

Question

'連接數據庫
dim objCn as object
dim objRst as object
dim strCn as string
dim strSql as string
dim strWhere as stringset objCn = CreateObject("ADODB.Connection");
set objRst = CreateObject("Adodb.RecordSet");'數據庫連接字串(用Oledb連接)
strCn = "Provider=sqloledb.1;server=youservermachinename;" & _
        "database=youdbname;uid=sa;pwd=youpwd;"'或者用ODBC連接
strCn = "Provider=Msdasql.1;driver= sql server;server=youserver;" & _
        "database=youdbname;uid=sa;pwd=youpwd;"'打開與數據庫的連接
objCn.Open strCn
'現在你可以用這個連接objCn向數據庫做查詢或更新的動作了﹐如
'查詢
strSql = "Select * from youtable where youfield1='abc'"'objRst中包含你的Sql語句返回的記錄集
objRst.Open,strSql,objCn,1,1'修改
strSql = "Update Yourtable Set yourfield1='bcd' where youprimaryid=1"
objCn.Execute strSql'新增
strSql = "Insert Into Yourtable(fieldlist) value(valuelist)"
objCn.execute strSql'或者可以用RecordSet的AddNew來新增,用Update來保存
'如新增objRst.Open "select * From table where field1=1",objcn,1,1
with objrst
    .addnew       '開始新增
    .fields("fields2").value = 'hhhh';
    '......你所有的字段賦值
    .update     '調用update保存
end with如修改objRst.Open "select * From table where field1=1",objcn,1,1
with objrst
    .fields("fields2").value = 'hhhh';
    '......你所有要修改的字段賦值
    .update     '調用update保存
end with'最后別忘了釋放資源
objrst.close
objcn.close
set objrst = nothing
set objcn = nothing
'好的VB地址
'http://www.vb365.com

Answer 1

www.vbgood.com
www.applevb.com
www.vbeden.com
www.dapha.net

Answer 2

'connect Sql server
dim conn as adodb.connection
dim str as string
...
str="provider=sqloledb;server=servername;uid=xx;pwd=xx;database=database name"
set conn=new adodb.connection
conn.open str'select,delete,insert
conn.excute "select * from table"
conn.excute "insert into..."
conn.excute "delete ...."

Answer 3

1. 用连接字符串可以示例:Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=tang2.查询，添加，删除均可以用SQL标准语言实现啊，很容易的
　找个书参考下便知.