VB6新手求数据库操作的代码

Question

1、datagrid在什么地方？我在工具栏看不到它。
工具攔上找工具箱，點擊工具箱有Microsoft DataGrid控件
2、我在书上看到打开数据库时，有一条dim cnn as new ADODB.connection，可是我输入ADODB.时，后面不会自动出现列表让我选，是不是没有引用什么东西？
在代碼窗口的工具選項下的添加引用工程項目那引用Microsoft Activex Data Object 2.1library或者其它版本

Answer 1

谢谢raulvim() ,第2点解决了。第1点，我点了工具箱，commandbutton,listbox等东西都看到了，就是没有DataGrid控件呀。是不是要从其它地方拉进来或引用进来的？

Answer 2

http://blog.csdn.net/yachong/archive/2006/06/07/778554.aspx
我前几年写的一点心得，不过内容不全，只能满足楼主一小部分要求

Answer 3

新建工程==>>企业版控件.里面常用的控件都有了

Answer 4

你用的什麼開發工具？在C盤Windows/system32查找MSDATGRD.OCX.看是否存在

Answer 5

1、datagrid在什么地方？我在工具栏看不到它。
在代碼窗口的工具選項下的添加引用工程項目那引用 Microsoft Datagrid Control 6.0(Sp6)或其他版本

Answer 6

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   以上是打開數據庫並執行插入數據操作

Answer 7

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

Answer 8

'增
strsql ="insert into [table](field1,field2) values(value1,value2) "
conn.Execute strSQL

Answer 9

谢谢楼上。最后一个问题，怎么样可以用server?
就是server.MapPath("db/mnd.MDB")。怎么样可以输入server.后自动出来后面的选项？

Answer 10

data grid是要在控件里添加的。
使用ADO先要引用下。

Answer 11

如果方便，可以再给我一段datagrid初始化的代码吗？
就是在Form_Load()中给datagrid显示表table1中所有记录。