作者：未知    文章来源：网络    点击数：    更新时间：2006-8-29

　

如何设置对VB数据库连接的动态路径

　　我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment 等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事。

　　笔者的解决方法是利用app.path 来解决这个问题。

　　一、用data控件进行数据库链接，可以这样：

　　在form_load()过程中放入：

private form_load() Dim str As String ’定义 str = App.Path If Right(str, 1) <> "\" Then str = str + "\" End If data1.databasename=str & "\数据库名" data1.recordsource="数据表名" data1.refresh sub end

　　这几句话的意为，打开当前程序运行的目录下的数据库，你只要保证你的数据库在你程序所在的目录之下就行了。

　　二、利用adodc（ADO Data Control)进行数据库链接：

private form_load () Dim str As String ’定义 str = App.Path If Right(str, 1) <> "\" Then str = str + "\" End If str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb" Adodc1.ConnectionString = str Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from table3" Adodc1.Refresh end sub

　　三、利用DataEnvironment进行数据库链接

　　可在过程中放入：

On Error Resume Next If DataEnvironment1.rsCommand1.State <> adStateClosed Then 　DataEnvironment1.rsCommand1.Close ’如果打开，则关闭 End If ’i = InputBox("请输入友人编号:", "输入") ’If i = "" Then Exit Sub DataEnvironment1.Connection1.Open App.Path & "\userdatabase\tsl.mdb" DataEnvironment1.rsCommand1.Open "select * from table3 where 编号=’" & i & "’" ’Set DataReport2.DataSource = DataEnvironment1 ’DataReport2.DataMember = "command1" ’DataReport2.show end sub

　　四、利用ADO(ActiveX Data Objects)进行编程：

　　建立连接：

dim conn as new adodb.connection dim rs as new adodb.recordset dim str str = App.Path If Right(str, 1) <> "\" Then str = str + "\" End If str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb" conn.open str rs.cursorlocation=aduseclient rs.open "数据表名",conn,adopenkeyset.adlockpessimistic 用完之后关闭数据库： conn.close set conn=nothing

　　如何让用户自行输入方程式，并计算其结果？

　　假设我们要让使用者在“方程式”栏位中自由输入方程式，然后利用方程式进行计算，则引用ScriptControl控件可以很方便地做到。
( ScriptControl 控件附属于VB 6.0，如果安装后没有看到此一控件，可在光盘的 \Common\Tools\VB\Script 目录底下找此一控件， 其.文件名为Msscript.ocx。) 假设放在窗体上的ScriptControl控件名称为ScriptControl1，则在“计算”按钮的Click事件中编写如下代码：

Dim Statement As String Statement = "X=" + Text1.Text + vbCrLf + _ "Y=" + Text2.Text + vbCrLf + _ "MsgBox ""计算结果="" & Y " ScriptControl1.ExecuteStatement( Statement

　　如何让一个 App 永远保持在最上层 ( Always on Top )

　　请在声明区中加入以下声明

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const SWP_NOMOVE = &H2 ’不更动目前视窗位置 Const SWP_NOSIZE = &H1 ’不更动目前视窗大小 Const HWND_TOPMOST = -1 ’设定为最上层 Const HWND_NOTOPMOST = -2 ’取消最上层设定 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE ’将 APP 视窗设定成永远保持在最上层 SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS ’取消最上层设定 SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS

　　我要如何在程序中开启网页？

　　在声明区中声明如下 (在 .bas 档中用 Public, 在 Form 中用 Private)

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

　　在程序中

Intranet： ShellExecute Me.hWnd, "open", "http://Intranet主机/目录", "", "", 5 Internet： ShellExecute Me.hWnd, "open", "http://www.ruentex.com.tw", "", "", 5

 

 

上一页  [1] [2] [3] [4] [5] 下一页