UC知道在线等待高手！VB.NET菜鸟请教
来源：百度知道 编辑：UC知道 时间：2024/09/18 06:23:34
Imports System.Data.SqlClient
Module Module1
Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"
Public mycon As New SqlConnection(constr)
' Public mycom As SqlCommand
Public myda As SqlDataAdapter
Public ad As String
Sub main()
'实例化一个登陆界面的窗口，以对话模式的形式显示出来
Dim ps As New login
ps.StartPosition = FormStartPosition.CenterScreen
ps.ShowDialog()
'验证密码成功后，进入系统管理员主界面
Application.Run(New mainpro)
End Sub
End Module
这是某一下载的工程里面文件module.vb的源代码
编译时没有错误和警告，运行时出错误提示用户sa登录失败，未与信任sql sever相关联，我感觉是Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"这的原因，但是具体怎么改不懂 。是不是改成我的sql sever服务器名字就行了，我的sql没密码啊、Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"是这句话的原因吗？这句具体是什么意思啊？
Module Module1
Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"
Public mycon As New SqlConnection(constr)
' Public mycom As SqlCommand
Public myda As SqlDataAdapter
Public ad As String
Sub main()
'实例化一个登陆界面的窗口，以对话模式的形式显示出来
Dim ps As New login
ps.StartPosition = FormStartPosition.CenterScreen
ps.ShowDialog()
'验证密码成功后，进入系统管理员主界面
Application.Run(New mainpro)
End Sub
End Module
这是某一下载的工程里面文件module.vb的源代码
编译时没有错误和警告，运行时出错误提示用户sa登录失败，未与信任sql sever相关联，我感觉是Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"这的原因，但是具体怎么改不懂 。是不是改成我的sql sever服务器名字就行了，我的sql没密码啊、Public constr As String = "User ID=sa;Password=19841024;database=homework;server=(local)"是这句话的原因吗？这句具体是什么意思啊？
VB.NET我也是刚刚接触，互相学习啊
Public constr As String = "User ID=sa;Password=19841024 ’定义变量userid = sa 密码=19841024
database=homework;server=(local) 这些是定义数据库名称及位置
测试这段代码，你得保证你的本地数据库名为homework 有一个用户名为sa 密码为19841024
或者你把代码按照你的本地数据库设置改一下就OK了
数据库服务器用户名 sa 密码 19841024
数据库名称为homework 而且是数据库装在本机
你的机子如果不是这样配置就会连不上
要么改数据库，要么就改代码
当然，建议改代码就可以了
你的没密码就把 ID=sa;Password=19841024; 去掉