各位老兄帮帮忙，小女子感谢了！在线等待.......

[pangpanglove]

我在编写一个管理系统，其中有一登录程序，
程序如下：
Private Sub cmdlogin_Click()
uid = txtusername.Text
pwd = txtpassword.Text
if db.connectionstring<>"" then
msgbox"请先注销再登录！",,"登录"
unload me
exit sub
end if
db.ConnectionString = "provider=SQLOLEDB.1;" & "persist security info=false;" & "uid =" & uid & ";password=" & pwd & ";initial catalog=jxcdatabase;" & "data source=teacher;"
db.Open

With frmmain
!mnutrade.Enabled = True
!mnustatistics.Enabled = True
!mnubusinessman.Enabled = True
!mnucustomer.Enabled = True
!mnufactory.Enabled = True
!mnuproduct.Enabled = True
!mnuproductinput.Enabled = True
!mnuproductoutput.Enabled = True
!mnuretreat.Enabled = True
!mnustore.Enabled = True
!mnudatabase.Enabled = True
End With
Unload Me
End Sub

但是一按登录按钮时，出现以下提示：
实时错误“91”：
对象变量或WITH块变量未设置。
odbc数据源已设置且ADO已引用。

[jobs002]

看看对象初始化了没有
SET conn=new adodb.connection

[pangpanglove]

我刚按照楼上朋友说的设置一下为：SET db =new adodb.connection
运行时系统提示以下错误：
实时错误：连接字符串属性无效。急死了！

[jobs002]

那就单步调试，。再立即窗口中查看connection的connectString有没有错误......,不过对象变量或WITH块变量未设置，应该是没有初始化的问题，希望高手指点....

[rayxu]

Private Sub cmdlogin_Click()
uid = txtusername.Text
pwd = txtpassword.Text
if db.connectionstring<>"" then
msgbox"请先注销再登录！",,"登录"
unload me
exit sub
end if
db.ConnectionString = "provider=SQLOLEDB.1;" & "persist security info=false;" & "uid =" & uid & ";password=" & pwd & ";initial catalog=jxcdatabase;" & "data source=teacher;"
db.Open
---------------------------------------------------------------
你这里面使用了一个数据连接对象，你没有声明，只要声明一下就可以了。把下面的代码加上去试一下看。
别忘了在“工程”下拉菜单里面点引用，引用一下ＡＤＯＤＢ
dim db as new adodb.connection
还有
uid = txtusername.Text
pwd = txtpassword.Text
你这一段，应该是写在“打开了你的数据库之后的”你都没有连接你的数据库，你怎么去对他们进行判断呢。
顺便帮你改一下。
-----------------------------------------------------------------
Private Sub cmdlogin_Click()
dim str as string
dim db as new adodb.connection
dim sql as string
Dim user As String, pwd As String
user = txtusername.Text
pwd = txtpassword.Text
str = "你的数据库连接"
sql = "select * from 你要查询的表 where name='" & user & "' and pwd='" & pwd & "'"
db.open sql,"str",1,1
db.Execute

if db.eof and db.bof = "" then
msgbox"请先注销再登录！",,"登录"

else

窗口.show
end if

[rayxu]

代码我没有试，不过我相信差不多了，若有问题，自己去调试一下。

[rayxu]

uid = txtusername.Text
pwd = txtpassword.Text
你这一段，应该是写在“打开了你的数据库之后的”你都没有连接你的数据库，你怎么去对他们进行判断呢。


晕，这里是我看错了。这里不算。哈哈。

[gdgf]

db.connectionstring --- "对象变量或WITH块变量未设置",
其实就是运行时,系统尚未明确 db 为何对象,当然会出此错误了.
你应在检查db.connectionstring之前, 先用 As New 定义db.

[glc20022003]

frmmain是自定义的类型吗?
要用type定义的

[xihongjian]

看看在你的引用里边有没有乱马的项目．

[pangpanglove]

都申请明，但出现了“连接字符串无效”的错误提示，请高手指点

[glc20022003]

ODBC帮定数据源,用ADODC生成一个连接字符串,应该可以连上.
你用的什么数据库啊?

[pangpanglove]

楼上的朋友，怎么连？

[pangpanglove]

我用的是SQL数据库

[glc20022003]

在部件里添加Microsoft ADO Data Control 6.0组件,用这个组件就可以了

[pangpanglove]

不行，仍然是以上错误

[glc20022003]

connStr = "driver={SQL Server};server=GAO;database=金基翠城;uid=sa;pwd=sa"
conn.open
把服务器名字和数据库名字,还有密码改一下应该可以连上的

[glc20022003]

conn.open connStr

[fxj331072]

为什么喊“小女子”就这么吃香？
俺以后提问也喊小女子！！哈哈哈

[jobs002]

楼上的以后就接你的分了....

[pangpanglove]

感谢各位热心的朋友，我的问题已解决，哈哈真行。