回 帖 发 新 帖 刷新版面

主题:[讨论]各位大虾!怎么样才能从textbox中将数据添加到access中?

各位大虾!怎么样才能从textbox中将数据添加到access中?


各位大虾!怎么样才能从textbox中将数据添加到access中?在网上搜索到:
{窗体上放置data,command,textbox控件各一个 
建立数据库a,表名b,字段名c 
代码如下: 
Private Sub Command1_Click() 
Data1.DatabaseName = App.Path & "\a.mdb" 
Data1.RecordSource = "b" 
Text1.DataField = "c" 
End Sub 
Private Sub Form_Load() 
Command1.Caption = "连接" 
End Sub
}
还有
{Private Sub Command1_Click()
  Adodc1.Recordset.Update
  End Sub
  Private Sub Form_Load()
  Adodc1.CommandType = adCmdText
  Adodc1.LockType = adLockBatchOptimistic
  'Access连接数据库
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"
  Data Source = "你的文件的路径access.mdb"
  Adodc1.RecordSource = "你Access文件里的表名"
  Text1.DataSource = Adodc1
    End Sub
}
试了一下都有问题啊,在线等待解决!

回复列表 (共4个回复)

沙发

我也很想知道,谢谢啊

板凳

Private Sub Command1_Click()
   n=1
  'Access连接数据库
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\a.mdb;Persist Security Info=False"    '数据库名及路径请自行更改
   Adodc1.RecordSource = "select * from 表名"
   Adodc1.Refresh
   Adodc1.Recordset.MoveLast        '移动到最后一行  ,不加这一行则改动第一行的数据。
   Adodc1.Recordset.Fields(n).Value = Text1.Text   'n 是字段所在的列第一列是0
  '上面两行可以理解为更改Access里的数据,但是如果要添加数据记录时应该用AddNew

'  Adodc1.Recordset.AddNew n, Text1.Text  'n是列 但是我自己实验时,添加记录的位置没有控制好,没有实现在原有记录的最后一行添加新记录!

    Adodc1.Recordset.Update
    End Sub

3 楼

Adodc1.Recordset.Fields(n).Value = Text1.Text   'n 是字段所在的列第一列是0
有没有Value,这样我没用过,

Adodc1.Recordset.Fields("fields")= Text1.Text   'n 是字段所在的列第一列是0
是没value

4 楼

用sql的Insert into TableName (FieldName) values (" & Text1.text ")" 就可以了

我来回复

您尚未登录,请登录后再回复。点此登录或注册