阿木 uguess 文智老兄 老妖还有其它高手..你们救救我啊~~~~~~~
UP~~!!!!!!!!
................................................................
UP~~!!!!!!!!
................................................................
解决方案 »
- 新手问题: DLL里多个类之间函数调用问题
- 如何用DOS注册组件呀?
- 数据库连接问题 "Provider=MS Remote;Remote Provider=MSDataShape......
- 有关串口,大家进来交流一下。
- 小弟新手,初来乍到,请问一个读取文件的问题
- 简单的聚集就是有问题
- ACCESS关键技术,急!在线等!
- 急!急!!串口编程:判断数组中高位符号位的方法
- VB 怎样控制用记事本打开一个现有文件(*.txt),并且显示现有文件内容。谢谢~~
- asp精通,sql精通,vb组件熟悉。熟悉jsp,java,linux,四个项目经验。可以拿多少MM??
- 有哪位兄台知道哪有winsocket这方面的资料!
- 注册表中是否有可以识别不同机器的硬件参数,比如:cpu,主板等序列号
哇噻!要回答你这些问题,我今天就不用干别的啦!
我现在正忙着用程序写EXCEL的模板,老板催了一个礼拜拉,头都大三圈,没办法帮你! 不好意思!
哇噻!要回答你这些问题,我今天就不用干别的啦!
我现在正忙着用程序写EXCEL的模板,老板催了一个礼拜拉,头都大三圈,没办法帮你! 不好意思!
这几项就行了。
User ID:用户名
Password:密码
Data Source:数据来源(数据库或服务器名)
Provider:简单点就是你所引用数据库的方法(引擎,也可称类型)
哪位大哥帮得上忙?
Public adoCNAccess As New ADODB.Connection '定义数据库的连接存放数据和代码
Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码
Public adoCNtemp As New ADODB.Connection '临时数据库
Public SqlCommand As New ADODB.Command '定义 SQL 命令
Public RsUsers As New ADODB.Recordset
Public RsDept As New ADODB.Recordset
Public Rs_Dm_Level As New ADODB.Recordset
Dim adoDateTime As New ADODB.Recordset '获取 NT-SERVER 时间
'***********************************************************************
'* 功能:与 SQL SERVER 数据库建立连接并取出服务器时间
'***********************************************************************
Public Function OpenConnection1() As String '打开数据库
On Error GoTo DEConErr
With DataEnvent.DataPrinter
If .State = adStateOpen Then
.Close
End If
DataEnvent.DataPrinter.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\net5\d\trade\SFTCC.mdb;Persist Security Info=False"
End With
Exit Function
DEConErr:
Select Case Err.Number
Case Else
MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End Select
End FunctionPublic Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open
If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End If
End With
SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
End Select
OpenConnection
End Function'***********************************************************************
'* 功能:连接数据报表环境
'*
'***********************************************************************
Public Sub OpenDEConnection() '连接数据环境
On Error GoTo DEConErr
With DE_Report.Con_report
If .State = adStateOpen Then
.Close
End If
.CursorLocation = adUseClient
.ConnectionTimeout = 15
.ConnectionString = "Provider=SQLOLEDB.1;Password=" & cSQLPassword & ";Persist Security Info=True;User ID=" & cSQLUserName & ";Initial Catalog=" & cDatabaseName & ";Data Source=" & cNtServerName
.Open
End With
Exit Sub
DEConErr:
Select Case Err.Number
Case Else
MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End Select
End SubPublic Function OpenAccess() As String
With adoCNAccess
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & cProgramPath & "Trade.mdb" ';password=allway"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败,请按帮助进行检查 !"
MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End If
End If
End With
With adoCNAccess1
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\\net5\d\trade\Sftcc.mdb"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败,请按帮助进行检查 !"
MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End If
End If
End With
End Function
是用代码,不是右键新建
还有的就是,我试过了好多种数据引擎
就是顶楼的那些出了问题,我都是用字符串连接的,那句错句也就是其中一句.
帮帮忙
jet 3.51 4.0的引擎我知道怎么用
请看清我的问题
至于,新建一dsn文件,并设置其数据源与连接的数据库文件,没有做过。但可以写注册表来达到同样的效果(新建一个ODBC数据源)
又至于,如何用代码新建各种数据库文件:dBASE Files,FoxPro,Access.....
可以用ADOX来实现。
再至于,新建一UDL文件,并设置其数据源与位置,并指定其默认位置,不会,呵呵!
可以用ADOX来实现。"
我:"具体如何?代码?"
阿木:"至于,新建一dsn文件,并设置其数据源与连接的数据库文件,没有做过。但可以写注册表来达到同样的效果(新建一个ODBC数据源)"
我:"具体如何?怎么操作?"
Dim adoCatalog As Catalog
Set adoCatalog = New Catalog
adoCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Access数据库文件名"
其他的都差不多了。
写注册表来达到同样的效果.
代码在家里,现在记不得,呵呵。等我回家后告诉你。