最近准备为公司网站用VB做个产品展示生成,生成部分基本没问题,
问题出现在查询部分,使用了MSHFelxGrid(DATAGrid不能满足操作需求),本来以为收工了,昨天再次测试的时候发现了以下问题
当数据库字段为“Memo(Access备注)”的时候,使用MSHFlexGrid1.TextMatrix取得的值并不完全,长度只有999个字符……困扰了一天,请高人们来测试并说说解决方案。由于相当原因,排除掉修改数据库字段类型的方案。
源码如下:
包括控件 textbox x 1(可不要,显示测试用),MSHFlexGrid x 1,Label x 1
数据库为Access,表Product内的SmallClassName字段为Memo类型,记录数据超过2000字符
Dim con As New ADODB.Connection
Dim Gs As New ADODB.Recordset
Private Sub Form_Load()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "/DB.mdb;Persist Security Info=False "
con.Open
Gs.CursorLocation = adUseClient
Gs.Open "select * from product where smallClassName like '% ' ", con, 1, 1
Set MSHFlexGrid1.DataSource = Gs
Gs.Close
Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) '显示测试用,可忽略该行
相关问答:
本来我是用ACCESS+VB建立一个软件(局域网),现在由于办公地点有变动,相换成INTERNAT的,有没有办法解决,
象这样的情况,如果是广域网,最好改成:B\S的
如果是局域网的,最好改成:C\S的
http://downlo ......
我的数据库是简体sqlserver2000 ,我想在繁体access下连接,通过odbc是可以了,但在access下出现打开的表全中"#已删除"
不知道要怎么操作才可以用ACCESS繁体连接简体sqlserver2000.谢谢!!!
大家都 ......
Dim searchKW As String = txtbxSearch.Text
Dim cmdSearch = New OleDb.OleDbCommand
cmdSearch.CommandText = " ......
sql="insert into users(username,password) values('aa','bbb')"
conn.execute sql
补充:怎么加不进去呢?
因为aa,bbb是你自己定义的变量,所写成这 ......
我建立2个表,比如table a table b
假如我table a 的值得是网页提交输入进来..
能不能在access有计算功能,计算结果赋予table b
如: ta ......