标题：老大，请帮做个例子学习一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.rar |
1、加载成功，如何在 Lbinfo 标签显示代码
2、把accdb 登录名加到 用户名 Combobox中
3、窗体判断不符合条件 Exit Sub 用什么代替？
建议老大命令函数与 VB高度一致，以免我们脑筋崩溃。
Dim CNN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\test\AAA.accdb;Jet OLEDB:Database Password=y16788shhgHK"
If Connections.TryConnect(CNN) = False Then
MessageBox.Show("数据源无法连通!")
Else
Connections.Add("test",cnn)
Dim cmd As New SQLCommand
cmd.Connection Name = "test"
cmd.CommandText = "Select 登录名 From {登录信息} Where 登录名 Is Not Null"
Dim dt As DataTable = cmd.ExecuteReader
e.Form.Controls("CbUser").ComboList = dt.GetComboListString("登录名")
e.Form.Controls("LbInfo").Text = "本地数据库连接成功!"
End If
呵呵，你给我的印象就是不怎么看帮助，直接动手的，否则怎么可能今时今日了，还不知道如何设置标签的显示内容呢？
注意
1、
cmd.Connection Name = "test"
connction Name中间的空格是多余的，实际使用过的时候去掉，因为论坛会屏蔽没有空格的这个单词
2、我代码中的数据文件路径有变化，你改回你原来的。
可以这样改一下，使用相对路径，这样随便你复制到任何位置，都能正常运行：
Dim CNN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ProjectPath & "AAA.accdb;Jet OLEDB:Database Password=y16788shhgHK"
If Connections.TryConnect(CNN) = False Then
MessageBox.Show("数据源无法连通!")
Else
Connections.Add("test",cnn)
Dim cmd As New SQLCommand
cmd.Connection Name = "test"
cmd.CommandText = "Select 登录名 From {登录信息} Where 登录名 Is Not Null"
Dim dt As DataTable = cmd.ExecuteReader
e.Form.Controls("CbUser").ComboList = dt.GetComboListString("登录名")
e.Form.Controls("LbInfo").Text = "本地数据库连接成功!"
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:test.rar |
呵呵，其实Foxtable的帮助比vb的帮助体贴多了，VB的帮助看起来更累的。
建议你至少要看三遍帮助才动手，从使用指南开始看，foxtable经过上千用户两年半时间的测试，其内涵虽然比不上vs.net那么博大精深，但也远没有你想象得那么肤浅，你现在的问题是不肯看帮助，一旦遇到问题，就开始觉得foxtable不行，这即浪费了你的时间，对foxtable也不那么公平的。
帮助系统做的太差！！ 我本来想用这个自己做一个进销存系统的。连最基本的运算都不知道在哪里找帮助。 我有access 开发经验，vba也接触过。
你这个软件是不错，但是帮助太差！该说的没说清楚，自我膨胀的演示一大堆。毫无意义！最好有例子，有视频。你这是个全新的一套系统，怎么能没有从头到尾的细致帮助呢？现代人很忙，找到你这里来都是想躲懒的家伙。自我学习的代价太大的话就没有意义了。
帮助系统做的太差！！ 我本来想用这个自己做一个进销存系统的。连最基本的运算都不知道在哪里找帮助。 我有access 开发经验，vba也接触过。
你这个软件是不错，但是帮助太差！该说的没说清楚，自我膨胀的演示一大堆。毫无意义！最好有例子，有视频。你这是个全新的一套系统，怎么能没有从头到尾的细致帮助呢？现代人很忙，找到你这里来都是想躲懒的家伙。自我学习的代价太大的话就没有意义了。