VB6数据库中填加数据的问题。显示缺少语句结束。求助

Question

我先使用SQL由数据库中查询出数据，将其显示在DataGrid中，然后我想由DataGrid向数据库中添加数据，即使用一个“添加”按钮，点击按钮时DataGrid就会增加一个空行，再向空行中输入数据，最后保存完成 在别处得代码1  Private Sub Command1_Click()
2    DataTable dt=dataset.Tables[0];//这个要事先保存下来.   
3    
4    DataRow   dr=dt.NewRow();   
5    dr["name"]="";   
6    ...   
7    dr.AcceptChanges();   
8    dt.Rows.Add(dr);   
9  
10    datagrid1.DataSource=dt;   
11    datagrid1.DataBind();   
 
12    //在datagrid的空行填数据   
  
13    adapter.Update() 
14      End Sub问题：1、说缺少语句结束。应该在哪加结束啊。怎么写
      2、第2、7语句能帮我解释一下吗。
      3、13行,adapter指的是什么。
      4、另外有不完善的哪位高手帮忙改改。

Answer 1

问错地方啦，去C#版吧，这儿是VB版啊

Answer 2

呵呵。菜鸟哦。也不太清楚啦，如果不是VB的代码，那按照上面的要求，用VB怎么做啊。

Answer 3

VB：
rs.open"select * from [表名]",mycon,1,3
rs.add new
添加各字段
rs.update
rs.close

Answer 4

你在学什么？VB 6.0？还是.NET？dateset是NET的东西，你的代码又貌似C#。

Answer 5

我在用VB6.0+Access2000做东东由于自学，资料不是太全面，遇到什么样的想法和问题就想在网上找解决答案，有相似的就摘抄下来，不过没看明白地说。所以请高手帮忙解决一下所说问题。bitzl210（张）
   谢谢您。但是您能帮我写全一下吗。比如定义什么函数还是调用什么不。
   直接加在。
  Private Sub Command1_Click()
  
  end sub
中就可以吗??

Answer 6

唉，你应该好好看看基础书，给你一点代码真是没什么用以下代码要先选择“工程\引用”命令，引用“Microsoft AetiveX Date Objects 2.5 Library”Private Sub Command1_Click()'声明变量
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String'连接access数据库
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\db1.mdb;Persist " _
        & "Security Info=False;Jet OLEDB:Database Password=123"'返回查询记录集
    sql="select * from youTable"        '查询语句
    Set rs = New ADODB.Recordset        '实例化
    rs.CursorLocation = adUseClient     '客户端游标。用datagrid必须
    rs.Open sql, cn, _
        adOpenKeyset, adLockOptimistic  '绑定控件
    Set DataGrid1.DataSource = rsEnd Sub
    

Answer 7

LZ代码确实很奇怪 好像是pascal 和vb 的混合物~

Answer 8

我知道那软连接。但是在软件上的属性选项上就可以弄好了啊。不用加在代码里的吧。我不懂的是怎样实现在DATAGRID里填加一个空白记录然后往里输数据。再写入数据库的语句。2003家人在前面有介绍下面的这语句。这样子我就能看懂知道是干什么的。rs.add new
添加各字段
rs.update
rs.close
但是后来给全的代码里确没有。不知道该往哪加。另外啊。第一句。rs.add new这句说是语法错误。??应该怎样改啊。