方法步骤:
1、首先我们打开heidisql客户端,我们新建一个连接,如果连接的是sql server的数据库,要选择数据库的类型,端口号一般是1433如果是mysql的数据库,一般端口是3306,记住,别混了,输入用户名跟密码就能链接了。
2、打开数据库后,我们选择一个表来 *** 作,一般表都是在左配渗薯侧的,我们依次展开,从数据库到表打开想要插入数据的表。
3、在这里选择数据打开,我这里用的是heidisql汉化版的,如果是英文版的应该是data才对。
4、在这个功能栏里,我们可以看见一个加号和一个减号,加号代表的是插入一条数据,二减号正好相反。
5、点击插入数据,卡你的鼠标在那个位置,它会在这个位置的下面一条记录插入一条记录。然后我们往里面输入数据,注意数据的类型,如果数据是time时间格式的,要按时间格式填写。
6、插入成功后会提示成功了,下面的记录也会跟着变色。
7、这里也可以培者用命令来插入,选择查询。
8、在这个命令的窗口,我们输入sql语句,然后点击上面的蓝色喊手按钮,然后就会执行命令,执行成功会提示插入数据成功。
9、再返回表这边看,可以看到数据插入成功了。
打开Navicat
打开数据表所在的数据库,右击需要新增记录的数据库表,然后点击【打开表】
此时显示好顷数据库表已有数据,例中并无记录
直接在表中输入第一条记录的信息,一般字段可以直接输入
对于外键字段,可以直接选择可选值,然后点击【确定】
点击下方简举的勾,应用修改,这样完成第一条记录的增加
点击下方的【+】,可以按同样方式增加多条记拦袜碧录
用数据库控件实现数据录入/删除放置控件: Form1:Data1Text1,2Lbel1,2Command1,2,3,4,5Frame1
属性设置:
Data1:〖答族DatabseName〗="Nwind.mdb",〖Recordsource〗=products
Text1:〖Datasource〗=data1,〖Datafield〗=produtID,〖TabIndex〗=0
Text2:〖Datasource〗=data1,〖Datafield〗=produtName,〖TabIndex〗=1
Command1:〖Name〗=Cmdadd,〖Caption〗=增加
Command2:〖Name〗=Cmddelete,〖Caption〗=删除
Command3:〖Name〗=Cmdexit,〖Caption〗=退出
Command4:〖Name〗=Cmdupdate,〖Caption〗=确定
Command5:〖Name〗=Cmdcancel,〖Caption〗=放弃
Frame1中包含Command4,5
代码:
Option Explicit
Dim firstflag As Boolean '首次使用标记
Private Sub Cmdadd_Click() '增加记录
Data1.Recordset.AddNew
Frame1.Visible = True '使主按钮组不可见
Data1.Caption = "记录:" &Data1.Recordset.RecordCount + 1
Text1.SetFocus
End Sub
Private Sub Cmdcancel_Click() '放弃录入的记录
Data1.Recordset.CancelUpdate
Frame1.Visible = False'使主按钮组可见
Data1.Recordset.MoveLast '回到最后一个记录
End Sub
Private Sub Cmdupdate_Click() '确尘液定录入的记录有效
Data1.Recordset.Update
Frame1.Visible = False'使主按钮组可见
Data1.Recordset.MoveLast '显示录入内容
End Sub
Private Sub Data1_Reposition() '重新定位记录时显示记录号
If firstflag Then '如果是首次使用
Data1.Caption = "" 'data1标题框显示空白
firstflag = False
Else '如果不是首次使用,则在
' data1标题框显示记录号
Data1.Caption = "总记录数:" &Data1.Recordset.RecordCount _
&" 当前记录:" &Data1.Recordset.AbsolutePosition + 1
End If
End Sub
Private Sub Cmddelete_Click()'删除
Data1.Recordset.Delete
Data1.Recordset.MovePrevious '回到前一个记录派举物
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub Form_Load()
firstflag = True '首次使用
Frame1.Visible = False '使主按钮组可见
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)