求代码，高手帮忙呀！！

Question

连接一个SQL sever数据库，然后将一个文件里的数据存入该数据库的表里，如何做呀？求代码~~~数据库名：trains; 表名：train

Answer 1

'用ADO的Stream完成写操作
'前面的连接操作留给你完成，以加深你对ADO印象，如下为写部分：
'其中rs为记录集，stm为Stream对象
    Set stm = New ADODB.Stream
    stm.Type = adTypeBinary    
    stm.Open                     
    stm.LoadFromFile (文件名) 
    rs.AddNew
    rs.Fields(二进制字段).Value = stm.Read   '从stm对象中读取数据
    rs.Update
    stm.Close

Answer 2

下面的代码放到窗体里
Dim msgtext As String
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
   dim strsql as string  
End Sub
下面的代码放到类模块中
Dim msgtext As String
Dim mrc As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    'Dim SQL As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
      
       
       Set ExecuteSQL = rst
        
       MsgString = "查询到" & rst.RecordCount & "条纪录"
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Exit Function
    Set cnn = Nothing
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
    'ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=aa;Data Source=RJB-CL"
End Function

Answer 3

上面的没有写完
Private Sub Command1_Click()
   dim strsql as string 
   set rs=executesql(strsql,msgtext)
   rs.addnew
     rs!字段1="aa"
     ........
   rs.update 
End Sub