毕业设计的苦难!!!!

Question

高手哥哥们,有人能帮我解释一下这段代码吗?是VB连接SQL数据库时用的
Public Const CnStr As String = "provider=sqloledb.1;server=anchoret;" _
    & "uid=sa;pwd=sa;database=ExamTest"Public Function GetGuid() As String
    Dim rs As Recordset
    Set rs = New Recordset
    rs.ActiveConnection = CnStr
    rs.Source = "select newid()"
    rs.Open
    GetGuid = rs.Fields(0).Value
    rs.Close
    Set rs = Nothing
End Function能帮我看一下是用什么方法连接的吗?请帮帮小妹吧,不甚感激!!!!! 请尽快,因为明天要交论文了!!!!!!!!!!!!!!!!

Answer 1

不明白，Ado连接的，不过这程序能执行吗？没有打开连接阿

Answer 2

虽然你这段代码是可以运行的，但是从个人角度上觉得你这代码写的实在烂
我个人觉得你根本没有试过这段代码是否能正常运行1、你知道const用在啥时候吗？const是常量的时候才用
所以写成Pubkuc cnstr as string就行2、VB中间没有public a as string="XXXX"这样的写法，你把这代码帖到VB中间，我就不相信VB不给你显示成红色？？？？
正确的写法是
public strConn as string
strconn=”连接字符"3,用了recordset的ActiveConnection和Source，这一看，我还以为是adodc，再看又不是，稍微有点常识的要知道ado的连接方法是Connection与Recordset相集合。MM，给你写这代码的人也实在太垃圾了，你照书抄也不至于这样，无话可说。

Answer 3

虽然你这段代码是可以运行的，但是从个人角度上觉得你这代码写的实在烂
我个人觉得你根本没有试过这段代码是否能正常运行1、你知道const用在啥时候吗？const是常量的时候才用
所以写成Pubkuc cnstr as string就行2、VB中间没有public a as string="XXXX"这样的写法，你把这代码帖到VB中间，我就不相信VB不给你显示成红色？？？？
正确的写法是
public strConn as string
strconn=”连接字符"3,用了recordset的ActiveConnection和Source，这一看，我还以为是adodc，再看又不是，稍微有点常识的要知道ado的连接方法是Connection与Recordset相集合。MM，给你写这代码的人也实在太垃圾了，你照书抄也不至于这样，无话可说。

Answer 4

1、数据库如果是SQL的话,连接字符串是这样写的
public cnstr as string
cnstr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=数据库名称;Data Source=服务器名称"
2、
Public Function GetGuid() As String
    Dim rs As Recordset'你这边是什么意思，定义记录集吗？
'正确方法：dim rs as adodb.recordset             set rs=new adodb.recordset
    Set rs = New Recordset''************
    rs.ActiveConnection = CnStr
    rs.Source = "select newid()"  '这边呢？啥意思？sql语句也不是那样写的。
    rs.Open
    GetGuid = rs.Fields(0).Value
    rs.Close
    Set rs = Nothing
End Function
3、他们说的没错，小妹你真的连VB开发环境都没有
4、你的问题是什么哦？用什么方法连接吗？我也不知道你用的是什么方法，可能是杂派的！连接数据库的方法，在FAQ中有很多例子，你可以去找找！
5、最后衷心祝你顺利毕业！：）

Answer 5

呵呵，mm我理解你哈，因为我有个干mm也是临要交毕业论文才急着让我给她做一个毕业设计，不过你这个实在是不好说啊，呵呵。

Answer 6

ado对象编程，连接字符串方式连接