就是我想让数据库里面表的信息显示在MAFG的网格里面,还有就是用VB给表添加信息,然后在MAFG的网格出现,要如何操作啊?急急急
我自己写了点代码,然后运行的时候说是没打开对象,怎么回事啊?
这是添加过程,请高手帮我找找问题,谢谢
Private Sub cmdADD_Click()
Dim strsql As String
Dim str As String
Dim rs As ADODB.Recordset
Dim rm As ADODB.Recordset
'判断添加内容是否为空
If Trim(txtCP_ID.Text) = "" Or Trim(txtCP_NAME.Text) = "" Or Trim(txtCP_TYPE.Text) = "" Or Trim(txtCP_UNIT.Text) = "" Or Trim(txtCP_PRODUCK.Text) = "" Then
MsgBox "必须输入产品信息!", vbInformation, "提示"
Exit Sub
End If
On Error GoTo Err_Save
'If CheckRecord Then Exit Sub
strsql = "Select CP_ID,CP_NAME,CP_TYPE,CP_UNIT,CP_PRODUCK,CP_PRICE,CP_RETAIL,CP_REMAKE From CP Where CP_NAME ='" & Trim(txtCP_NAME.Text) & "'"
Set rs = cnn.Execute(strsql, 1, 1)
cnn.BeginTrans
If rs.EOF Then '如果不存在记录,则添加
strsql = "Insert Into CP (CP_ID,CP_NAME,CP_TYPE,CP_UNIT,CP_PRODUCK,PRICE,RETAIL,REMAKE) Values('" & Trim(txtCP_ID.Text) & "','" & Trim(txtCP_NAME.Text) & "','" & Trim(txtCP_TYPE.Text) & "','" & Trim(txtCP_UNIT.Text) & "','" & Trim(txtCP_PRODUCK.Text) & "','" & Trim(txtCP_PRICE.Text) & "','" & Trim(txtCP_RETAIL.Text) & "','" & Trim(txtCP_REMAKE.Text) & "')"
cnn.Execute strsql
MsgBox "添加成功!", vbInformation, "提示"
'添加网格
vfg.AddItem vfg.Rows & vbTab & Trim(txtCP_ID.Text) & vbTab & Trim(txtCP_NAME.Text) & vbTab & Trim(txtCP_TYPE.Text) & vbTab & Trim(txtCP_UNIT.Text) & vbTab & Trim(txtCP_PRODUCK.Text) & vbTab & Trim(txtCP_PRICE.Text) & vbTab & Trim(txtCP_RETAIL.Text) & vbTab & Trim(txtCP_REMAKE.Text)
If vfg.Rows > 1 Then vfg.Select 1, IIf(vfg.Col = 0, 1, 0)
Else '如果存在记录,则修改
MsgBox "已经存在此用户信息!", vbInformation, "提示"
End If
cnn.CommitTrans
cmdADD.Enabled = True
cmdCLOSE.Enabled = False
Exit Sub
Err_Save:
MsgBox "保存过程出错!" & Err.Description & "", vbExclamation, "提示"
Err.Clear
cnn.RollbackTrans
End Sub
然后我就不知道怎么把表中的内容在网格中显示。最好是给的代码,事例
谢谢拉
[此贴子已经被作者于2006-11-17 17:02:17编辑过]