| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 743 人关注过本帖
标题:MSFLEXGRID与SQL的操作问题
只看楼主 加入收藏
fireonthewo
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-11-17
收藏
 问题点数:0 回复次数:2 
MSFLEXGRID与SQL的操作问题

就是我想让数据库里面表的信息显示在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编辑过]

搜索更多相关主题的帖子: SQL MSFLEXGRID 
2006-11-17 17:00
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
将表格的DataSource设置为记录集.Recordset就可以显示在表格里.

我的msn: myfend@
2006-11-17 17:05
fireonthewo
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-11-17
收藏
得分:0 
If vfg.Rows > 1 Then vfg.Select 1, IIf(vfg.Col = 0, 1, )
但是我在对数据进行添加的时候就是报这里错,那个高手可以告诉我是什么原因 ?谁可以帮我看看这代码?谢谢拉
2006-11-17 21:46
快速回复:MSFLEXGRID与SQL的操作问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016074 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved