关于VB。NET与SQL2000的连接问题

[vwakelife]

我前台的VB做好了，后台的SQL2000也做好了，按F5测试，在登陆界面老是提示数据库连接不上。郁闷了
大虾们看看，我的代码有问题么
代码如下：
Imports System.IO
Imports System.Data.SqlClient

Module Sample02
Public SqlCon As New SqlConnection("Data Source=aa63c80319914df;Database=SAMPLE02;User Id=wanglei;Pwd=wanglei")
Public UserId As String
Public Purview As String

‘我的电脑名字就是aa63c80319914df，建立的数据库就叫SAMPLE02

[vwakelife]

在线等着，谢谢大家了

[win7cc]

server=服务器;uid=sa;pwd=密码;database=数据库

我这样子可以连接，其他方式没仔细去看。

Dim SqlCon As New SqlConnection("server=aa63c80319914df;Database=SAMPLE02;User Id=wanglei;Pwd=wanglei") 

[scq2099yt]

连接字符串是否有问题，再就是数据库是否有问题

[duping9626]

Dim SqlCon As New SqlConnection("Data Source=aa63c80319914df;Initial Catalog=SAMPLE02;User Id=wanglei;wanglei=")

'或者
Dim SqlCon As New SqlConnection("server=aa63c80319914df;Database=SAMPLE02;User Id=wanglei;Pwd=wanglei") 

[tjficcbw]

这样比较好

    Dim constr As String = "User ID=wanglei;pwd=wanglei;Initial Catalog=SAMPLE02;Data Source=(local)" '定义一个变量，连接字符串
    Dim sqlstr As String = "select * from DB" '定义一个变量，SQL语句里的DB为你的一个表
    Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象
    Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象
    Dim myReader As SqlDataReader '定义一个变量，阅读器
        mycon.Open() '打开这个联接
        myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器
        myReader.Read '用阅读器的read的方法来读
            MsgBox(myReader(0))

[boblaw]

Public SqlCon As New SqlConnection("server=aa63c80319914df;initial catalog=SAMPLE02;User Id=wanglei;Pwd=wanglei") 

[liyingzi]

假如你的代码没有问题的话，请检查sql有没有注册，再试着用下面的超级用户登陆
Dim SqlCon As New SqlConnection("server=.;Database=SAMPLE02;User Id=sa;Pwd=")

[a15329119557]

我是个新手,我还看不懂啊.不好意思啊

[liuzyl]

hahahaha~~~

[vwakelife]

之前测试的时候，试验过超级帐户SA，密码SA，但还是连接不上，SQL肯定是注册了，不然我也没有办法去建立那么多的表的
谢谢上面的大虾的建议

[Ny-6000]

[Quote=引用 5 楼 tjficcbw 的回复:]
这样比较好

VB.NET code
Dim constr As String = "User ID=wanglei;pwd=wanglei;Initial Catalog=SAMPLE02;Data Source=(local)" '定义一个变量，连接字符串
Dim sqlstr As String = "select * from DB" '定义一个变量，SQL语句里的DB为你的一个表
Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象
Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象
…
[/Quote]

按照这样,一步一步跟踪一下,看看是哪个地方出问题了.

出问题地方会有提示解决办法的.

[SYUEHOKO]

楼上各位已经说的很明白了,试试就知道了.