我想用狐表连接用友数据库 用友数据库用的是sqlserver2000 命名规则是UFDATA_帐套号_会计年度写了一个窗口 此主题相关图片如下:qq截图20130927093550.jpg 确定按钮的click事件代码是: Dim serverName As WinForm.TextBox = e.Form.Controls("TextBox1") Dim psw As WinForm.TextBox = e.Form.Controls("TextBox2") Dim name As WinForm.TextBox = e.Form.Controls("TextBox3") Dim year As WinForm.TextBox = e.Form.Controls("TextBox4")
If serverName.Text <> "" AndAlso name.Text <> "" AndAlso year.Text <> "" Then Dim sqlConnStr As String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;psw=" & psw.Text & "Initial Catalog=UFDATA_" & name.Text & "_" & year.Text & ";Data Source=" & serverName.Text If Connections.TryConnect(sqlConnStr) = True Then Connections.Add("yongyou",sqlConnStr) MessageBox.Show("登陆成功!") \' MessageBox.Show(sqlConnStr) Else MessageBox.Show("数据源无法连通!") End If Else MessageBox.Show("请填写完整的登陆信息!") End If
但是我发现只要是服务器名写对了就可以显示登录成功 密码数据库名是错误的也可以登录成功 而我希望的是四个信息都写对了才可以登录成功 应该怎么写 啊 |