SQL的数据库已经建好,ODBC也已经设好,如果想让VB中的程序与数据库连接,还要对VB进行什么设置?谢谢!顺便问一下,在数据库中建表、视图和过程是不是每个系统中必须有的?在创建存储过程时怎么修改文本中的内容呢?
解决方案 »
- VB6.0怎样向access表加ID字段
- VB6 SP6 輸入不了中文(亂碼),苦惱
- 请教一条SQL!
- 一个小问题,关于sql语句的期待的参数不足的错误
- 请教:VB中怎么设计多线程程序?
- 关于水晶报表4.6的ADO连接
- 如何实现真正意义上的关机
- 請問如何用API函數在注冊表中寫入一個REG_EXPAND_SZ(可擴充字符值)和REG_MULTI_SZ(多字符串值)?能否給出源代碼﹖分不夠可以再加﹗
- 怎么编写文件上传到数据库 用Microsoft Internet Transfer
- 我想使用一个指定目录下的dll,应该怎么做阿?
- 粘貼的對話框,記憶上次打開的路徑.請lgxysl(我心欲静)接分
- 怎么在VB中做出来反字,字是不确定的,
Public Sub Main()
On Error GoTo Err_Handle
Dim strServer As String
Dim strUserName As String
Dim strPassword As String
strServer = GetSetting("SoftName", "LoginInformation", "Server", "")
strUserName = GetSetting("SoftName", "LoginInformation", "UserName", "")
strPassword = GetSetting("SoftName", "LoginInformation", "Password", "")
'Read Soft Name
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=Database;Password=" & Trim(strPassword) & ";Persist Security Info=true;User ID=" & trim(StrUserName) & ";Data Source=" & Trim(strServer)
Cnn.Open FrmMain.Show '显示第一个主窗体
Exit Sub
Err_Handle:
MsgBox Err.Description, vbInformation
End Sub将这段代码写在模块中就可以调用了。
Dim str As Stream
str = "连接字符串"
set con=new adodb.connection
con.ConnectionString = str
con.Open再声明一个adodb.recordset对象用于对记录操作