Me.SqlConnection1.ToString的内容

chenzhen703 2008-10-11 12:00:03

我在窗体上新建了一个SqlConnection1对象，connectionsting定义为“Data Source=7F6FA3A8F34049A\MICKEY;Initial Catalog=Northwind;Integrated Security=True”，但是我在窗体上又新建了一个Rickbox空件，Rickbox1.text=Me.SqlConnection1.ToString,但运行时却显示是System.Data.SqlClient.SqlConnection，而不是我定义的connectionsting，请问为什么？？？

...全文

110 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

缥缈大木头 2008-10-11

打赏
举报

回复

赞同Rickbox1.text=Me.SqlConnection1.connectionsting

只在此山中 2008-10-11

打赏
举报

回复

Rickbox1.text=Me.SqlConnection1.connectionsting

沐NeMo 2008-10-11

打赏
举报

回复

Rickbox1.text=Me.SqlConnection1.connectionsting

51Crack 2008-10-11

打赏
举报

回复

设置的时候是connectionsting，取的时候当然也是connectionsting

IWAWWFY 2008-10-11

打赏
举报

回复

Rickbox1.text=Me.SqlConnection1.connectionsting

正解

VB与sql设计代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '选择普通用户登录 If Me.RadioButton1.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 普通用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统学生成绩管理系统.添加DToolStripMenuItem.Enabled = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起，用户名或密码错误！重新输入（请正确选择用户类型）", 16, "警告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "

同济VB.NET 课后实验五的答案

选择文件并将其上传到指定服务器，将上传的位置记录到数据库

利用Treeview自动生成菜单，利用反射在Tabcontrol中产生NewTabPage，打开窗口内容。在NewTabPage上画出关闭按钮，点击关闭。

从vb6 到 VB.ET 必须要考虑的50方面。图文并茂的好书。

16,717

社区成员

110,522

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章