下载信息  [文件大小：   下载次数： ]

点击浏览该文件: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也接触过。

你这个软件是不错，但是帮助太差！该说的没说清楚，自我膨胀的演示一大堆。毫无意义！最好有例子，有视频。你这是个全新的一套系统，怎么能没有从头到尾的细致帮助呢？现代人很忙，找到你这里来都是想躲懒的家伙。自我学习的代价太大的话就没有意义了。