[求助][急!!!] 请高手帮忙指导下VB程序(如果成功我会给"奖励")
如题: 希望有高手能帮帮我,比较急,这个软件必须下个礼拜就弄好,但是小弟VB学的不好,希望有高手能指导我,最好是杭州人面对面交流,当然事成之后我可以给"奖励"!!!!部分代码如下:
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=kyjk;Initial Catalog=kyjk"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
还有2个地方,是比较简单的修改,关键是这个,我使用时他会跳出"实时错误'-2147467259(80004005)':[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程寻" 点调试后就跳到 上面的代码中 conn.open --------------------编程问答-------------------- 数据库连接有问题
用adodc手工连一下看看ConnectionString --------------------编程问答-------------------- 小弟只学过VB的基础,涉及到数据库的一点办法都没有...楼上的朋友能不能说的具体点,或者加我QQ 231800709(备注VB)
感激不尽!!! --------------------编程问答-------------------- 使用ODBC的连接字符串
"Provider=MSDASQL;DSN='" & dsnName & "';UID='" & MyUserID & "';PWD='" & MyPassword &"';"
使用ADO的连接字符串
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security info=False;User ID='" & DbUserName & "';Password='" & DbUserPwd & "';Initial Catalog='" & DbName & "';Data Source='" & SvrName & "'" --------------------编程问答-------------------- 具体的就是在窗体上加一个adodc，按右键，属性，在里面生成一个连接串，把那个串拷到你的conn.ConnectionString =后面 --------------------编程问答-------------------- LZ:如果你是通过ODBC连接数据源，那须由系统的ODBC数据源作设置。[img=http://album.hi.csdn.net/app_uploads/zdingyun/20081226/105143419.p.jpg?d=20081226105319481][/img] --------------------编程问答-------------------- 说来惭愧,这些程序都不是我编的,是之前一个退休领导编的,小弟水平有限,楼上的大大们说的....实在不能理解,可否再指导下,最好是能在QQ(231800709)上聊,我可以把整个程序都传过去,感激!!!! --------------------编程问答--------------------
看到这里有个疑问，你数据库建了没有？ --------------------编程问答-------------------- 应该是没有....这个程序的服务器上有个数据库,我电脑上是没有的,我现在是拿过来修改,到时还要再拿过去 --------------------编程问答-------------------- 把连接字符串conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=kyjk;Initial Catalog=kyjk"
换成
conn.ConnectionString = "SERVER=服务器名;UID=登录名;PWD=密码;DATABASE=数据库名;DRIVER=sql server;"
试试，
服务器名是指安装SQL SERVER的服务器名，如果是局域网，可以为计算机名，建议使用该机的IP地址，如果本机可以写成一个小数点（.)
登录名，登录SQL SERVER的用户名，你可以用sa
密码,登录名相应的密码
数据库名,要该 问的数据库，你这里应该是kyjk
--------------------编程问答-------------------- up --------------------编程问答-------------------- UP --------------------编程问答-------------------- 谢谢大家...总算有点头绪了...万分感谢!!!! --------------------编程问答--------------------
其实你也只是有点儿头绪...
补充：VB , 基础类
