VB6新手求数据库操作的代码
我刚接触VB6,手上什么代码都没有,想从数据库操作开始学起。有没有高手可以给我一段代码,有关VB中操作access数据库的。
包括数据库打开,关闭,增,删,改等代码。
access可能设置了密码,所以打开数据库时最好有有关密码处理的。
同时,请问
1、datagrid在什么地方?我在工具栏看不到它。
2、我在书上看到打开数据库时,有一条dim cnn as new ADODB.connection,可是我输入ADODB.时,后面不会自动出现列表让我选,是不是没有引用什么东西? --------------------编程问答-------------------- 1、datagrid在什么地方?我在工具栏看不到它。
工具攔上找工具箱,點擊工具箱有Microsoft DataGrid控件
2、我在书上看到打开数据库时,有一条dim cnn as new ADODB.connection,可是我输入ADODB.时,后面不会自动出现列表让我选,是不是没有引用什么东西?
在代碼窗口的工具選項下的添加引用工程項目那引用Microsoft Activex Data Object 2.1library或者其它版本 --------------------编程问答-------------------- 谢谢raulvim() ,第2点解决了。第1点,我点了工具箱,commandbutton,listbox等东西都看到了,就是没有DataGrid控件呀。是不是要从其它地方拉进来或引用进来的? --------------------编程问答-------------------- http://blog.csdn.net/yachong/archive/2006/06/07/778554.aspx
我前几年写的一点心得,不过内容不全,只能满足楼主一小部分要求 --------------------编程问答-------------------- 新建工程==>>企业版控件.里面常用的控件都有了
--------------------编程问答-------------------- 你用的什麼開發工具?在C盤Windows/system32查找MSDATGRD.OCX.看是否存在 --------------------编程问答-------------------- 1、datagrid在什么地方?我在工具栏看不到它。
在代碼窗口的工具選項下的添加引用工程項目那引用 Microsoft Datagrid Control 6.0(Sp6)或其他版本 --------------------编程问答-------------------- Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db/mnd.MDB") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
cm.ActiveConnection = cn
cm.commandtext="insert into 表名 values(" & maxid+1 & ",'" & topic & "','" & now() & "','" & session("code") & "','0','" & contant & "')"
cm.execute
以上是打開數據庫並執行插入數據操作
--------------------编程问答-------------------- 第一点也解决了,要引用部件的。
谁可以给我数据库的代码呀:) --------------------编程问答-------------------- Option Explicit
public const gstrConn as string ="Provider=Microsoft.Jet.OLEDB.4.0;Password=admin;User ID=Admin;Data Source=D:\mydb.mdb;Persist Security Info=False"
'连接数据库
Dim conn As New ADODB.Connection
conn.ConnectionTimeout = 60 '响应时间60秒
conn.Open gstrConn ‘打开连接
'关闭
conn.Close
Set conn = Nothing
'读取数据
Dim rs As New ADODB.Recordset
rs.open "select * from [table]",conn,adOpenStatic
'print rs.fields("[字段名]")
'增
strsql ="insert [table](field1,field2) values(value1,value2) "
conn.Execute strSQL
'删
strsql ="delete from [table] where [field1] = [value1] "
conn.Execute strSQL
'改
strsql ="update [table] set [field1] = [value1], [field2] = [value2] where [field3]=[value3]"
conn.Execute strSQL
--------------------编程问答-------------------- '增
strsql ="insert into [table](field1,field2) values(value1,value2) "
conn.Execute strSQL --------------------编程问答-------------------- 该回复被版主删除 --------------------编程问答-------------------- 谢谢楼上。最后一个问题,怎么样可以用server?
就是server.MapPath("db/mnd.MDB")。怎么样可以输入server.后自动出来后面的选项? --------------------编程问答-------------------- data grid是要在控件里添加的。
使用ADO先要引用下。 --------------------编程问答-------------------- 如果方便,可以再给我一段datagrid初始化的代码吗?
就是在Form_Load()中给datagrid显示表table1中所有记录。 --------------------编程问答-------------------- 不能老是等著人家給你代碼。應該自己多看一下VB的幫助。這樣才能進步
补充:VB , 基础类