当前位置:编程学习 > VB >>

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 ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,