这几天找了几个毕业设计,或多或少有点小问题,希望大家帮解决一下~~~
1.adodb和adodc
有的系统里是混合的,在别的电脑上运行都能出来,不过,有的时候有adodc的模块就学要换一台电脑,就得从新设置adodc的属性,我想知道怎么能解决这个问题。 2.数据源
有些的系统问题是找不到数据源,不过我也去创建数据源了,为什么还是显示找不到数据源啊? 3..ini文件
我看见有的系统作者给了几个.ini文件,说是放在里面或者修改一下里面的内容,就可以不用设置了,有人说:“保存你的登录数据库所需要的参数,比如登录帐号,密码,服务器名称,数据库名称等等,程序运行的时候从文件里读这些参数,拼成连接字符串,赋给控件”,对吗? 我想知道 是我在文件夹里面建立一个ini文件,把这些信息写在里面就行吗? 还是说需要代码啊? 4.用户名+密码
我在数据库里找不到系统的用户名和密码,使用了很多种方法,有的可以有的不可以? 有没有万能方法啊?
希望大家多多帮忙~~! 解决一个是一个~~~! 十分感谢了~~~~~~~~~~
1.adodb和adodc
有的系统里是混合的,在别的电脑上运行都能出来,不过,有的时候有adodc的模块就学要换一台电脑,就得从新设置adodc的属性,我想知道怎么能解决这个问题。 2.数据源
有些的系统问题是找不到数据源,不过我也去创建数据源了,为什么还是显示找不到数据源啊? 3..ini文件
我看见有的系统作者给了几个.ini文件,说是放在里面或者修改一下里面的内容,就可以不用设置了,有人说:“保存你的登录数据库所需要的参数,比如登录帐号,密码,服务器名称,数据库名称等等,程序运行的时候从文件里读这些参数,拼成连接字符串,赋给控件”,对吗? 我想知道 是我在文件夹里面建立一个ini文件,把这些信息写在里面就行吗? 还是说需要代码啊? 4.用户名+密码
我在数据库里找不到系统的用户名和密码,使用了很多种方法,有的可以有的不可以? 有没有万能方法啊?
希望大家多多帮忙~~! 解决一个是一个~~~! 十分感谢了~~~~~~~~~~
解决方案 »
- 思路,思路?给点帮助
- 制作浏览器
- vb语言实现对数组随机排序的一个问题
- 高分问个简单的小问题 在线等 有答案 马上结帖子
- ★★★发布 SourceFormatX 万能源代码格式化工具新版本!5月7日之前狂送注册码!!!★★★
- 多条件查询代码
- 一个关于webbrowser控件的问题
- #100分问题:如何直接读取内存中的位图数据并贴到窗口中?(bitblt和SetDIBitsToDevice函数那个耗资源少?)
- 怎样得到excel文件中的行数和列数?
- 我想達到這樣的功能,在treeview中右擊一子目錄,出來一彈出菜單,選擇菜單里的'改名'項,則那個被右擊的子目錄便進入可編輯狀態,以便用戶改名.右擊菜單已經實現,如何讓選中的目錄進入可編輯狀態??
- Access+VBA 表窗体修改保存数据的问题
- 送分100分:VB6如何判断一个变量或对象是否已经存在
cn.open ConnectionString
在需要的地方用这个连续字符串就可以了
先谢谢了 不过不好使
我在我的模块里
源代码:
Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "FileDSN=my_factory.dsn;UID=sa;PWD="
End Function 改成了:
Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Factory;Data Source=8BE6C985023B400"
End Function
这个能运行出来,不过就是得换台电脑换个代码~~~
按照您说的是:我改成了(我要是打错了,希望别见笑~)
ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa" & DatabaseUserName & ";Initial Catalog=My_Factory" & DatabaseName & ";Data Source=8BE6C985023B400" & ServerName & ";Pwd=" & DatabasePwd & ""
cn.open ConnectionString 没运行出来,应该是我打错了。麻烦您看一下~~~~~
dat文件内容中包含如下内容:
库存系统;Data Source=WHZ
库存系统是数据库名称,数据源在whz
调用时的函数
Private Function Getfill(Path As String) As String
Dim Filler As String
Open Path For Input As #1
Input #1, Filler
Close #1
Getfill = Filler
End FunctionPublic Sub main()
Dim sPath As String
On Error GoTo err
Set cnn = New ADODB.Connection
sPath = Getfill(App.Path & "\auto.dat")
If sPath = "" Then
MsgBox "请设置文本内容!", vbOKOnly, "提示"
Exit Sub
Else
MyCnn.ConnectionString = "Provider=SQLOLEDB.1;Password=1216;Persist Security Info=True;User ID=sa;Initial Catalog=" & sPath
cnn.CursorLocation = adUseClient
cnn.Open
Frm_SysPass.Show vbModalEnd If
Exit Sub
err:
MsgBox "提示" & err.Description, vbOKOnly, "错误"
End Sub这个就是你所说的设置文本内容实现不同的数据库调用了,可以根据你自己的要求去修改对应的文本文件内容实现数据库打开
简单说一两种供参考:1,用VB的数据视图窗口 2,用udl
2.不知道你访问的是不是本地sql server,如果是其它服务器的,一定要保证你本机的用户有服务器的访问权限。
3.看我5楼回到。
4.写固定的用户实例和密码吧