如何把几条记录直接录入到datagrid控件中，然后再对所有的记录保存到数据库中，很急！！！！

Question

小弟今天真的遇到一个难题，希望各位高手知道的一定帮忙。
在打开窗口的时候，我不想在datagrid控件中显示任何记录。然后在datagrid控件中输入几条记录（直接输到datagrid控件中，可以是好几条记录），最后再保存输入的几条记录到数据库，并且保存后仍然在datagrid控件中显示录入的这几条记录。不知道如何实现，真是烦死我了。

Answer 1

用rs.filter="條件"
set datagrid1.datasource=rs錄入資料rs.addnew

Answer 2

after you input the datagrid,you maydim N_Rs as adodb.recordset
set N_rs=datagrid.datasourec
sql="insert * into yourdatabasetabel (select * from N_Rs)"
conn.execute sql

Answer 3

这些是往datagrid写的代码。往数据库里写的代码和这些代码相反，应该没问题了吧。        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim i As Integer
        
        conndbOpen      '''''´打开数据源
        
        Set rs = New ADODB.Recordset
        sql = "select * from TKuser where TKName<>'administrator'"
        rs.Open sql, conn, 1, 1
        With msgData
            i = 1
            .rows = 1
            If Not (rs.BOF And rs.EOF) Then
            
                Do While Not rs.EOF
                    .rows = .rows + 1
                    .TextMatrix(i, 1) = rs.Fields("TKName").Value
                    If rs.Fields("TKtype") = 0 Then
                        .TextMatrix(i, 3) = "&sup3;&not;&frac14;&para;&Oacute;&Atilde;&raquo;§"
                    Else
                        
                        .TextMatrix(i, 3) = "&AElig;&Otilde;&Iacute;¨&Oacute;&Atilde;&raquo;§"
                    End If
                        .TextMatrix(i, 2) = "*"
                    i = i + 1
                    rs.MoveNext
                Loop
            Else
            End If
            
            If rs.State = adStateOpen Then rs.Close
            Set rs = Nothing
        End WithPublic Function conndbOpen()
    If Mid(App.Path, Len(App.Path), 1) = "\" Then
        constringFile = App.Path & "mdb\" & mdbName & ""
    Else
        constringFile = App.Path & "\mdb\" & mdbName & ""
    End If
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & constringFile & ";Persist Security Info=True"
    conn.Open       End Function

Answer 4

这些好像都不行。一旦我把数据库与datagrid建立connection,recorderset以后，就肯定会在dategrid控件中显示数据，每update一次都会是这样。

Answer 5

Public rs As New ADODB.Recordset
    Public sql As StringPrivate Sub cmdadd_Click()
'    TDBGrid1.MoveNext
    'DataGrid1.m
    rs.AddNew    
End SubPrivate Sub Form_Load()
    sql = "select * from text1"
    CONN.conn1.Open
    rs.Open sql, CONN.conn1, 3, 3
'    Set TDBGrid1.DataSource = rs
    Set DataGrid1.DataSource = rs
    rs.MoveLast
End Sub

Answer 6

Adodc1.RecordSource = "select * from switchtime where 1>2"  '不显示任何纪录
Adodc1.Refresh
   
DataGrid1.Refresh
Adodc1.Recordset.AddNew  '新增纪录