Как я могу исправить мою базу данных Соединение в vb.net?

Question

Imports MySql.Data.MySqlClient 
    Imports MySql.Data 
    Public Class Form1 
    Dim dbcon As New MySqlConnection("Data Source=VINCENT-PC\SQLEXPRESS;Initial Catalog=Group1;Integrated Security=True") 
    Dim sqlcmd As String 
    Dim mysqlcmd As MySqlCommand 
    Dim dr As MySqlDataReader 

Private Sub btnSearch_Click(sender As System.Object, e As System.EventArgs) Handles btnSearch.Click 
    Try 
     sqlcmd = "Select * from Sample1 where num=" + txtname.Text 
     mysqlcmd = New MySqlCommand(sqlcmd, dbcon) 
     dbcon.Open() 
     dr = mysqlcmd.ExecuteReader 
     While dr.Read 
      txtfname = dr.Item("fname") 
      txtlname = dr.Item("lname") 
     End While 
     dr.Close() 
     dbcon.Close() 
    Catch ex As Exception 
     MsgBox("Error: " & vbCrLf & vbCrLf & vbCrLf & ex.Message) 
    End Try 
End Sub 
    End Class 

это код, который я написал, но он, казалось, как он не подключен к базе данных, пожалуйста, помогите мне, и спасибо заранее

Answer 1

Попробуйте следующий код:

Imports System.Data.SqlClient 

Dim Conn As SqlConnection 
Dim sqlcmd As String 
Dim mysqlcmd As SqlCommand 
Dim dr As SqlDataReader 

Private Sub btnSearch_Click(sender As System.Object, e As System.EventArgs) Handles btnSearch.Click 
dim m_CurrConstr as String 
dim m_svrname as String 
dim m_Currentdbf as String 
m_Srvname="VINCENT-PC\SQLEXPRESS" 
m_Currentdbf ="[YourDBName]" 
    Try 
     m_CurrConStr = "Server=" & m_Srvname & ";Initial Catalog=" & m_Currentdbf & ";User ID=sa;Password=as;Trusted_Connection=False;" 
     Conn = new Sqlconnection(m_currConstr) 
     sqlcmd = "Select * from Sample1 where num=" + txtname.Text 
     mysqlcmd = New SqlCommand(sqlcmd, Connn) 
     Conn.Open() 
     dr = mysqlcmd.ExecuteReader 
     While dr.Read 
      txtfname = dr.Item("fname") 
      txtlname = dr.Item("lname") 
     End While 
     dr.Close() 
     Conn.Close() 
    Catch ex As Exception 
     Messagebox.Show("Error: " & vbCrLf & vbCrLf & vbCrLf & ex.Message) 
    End Try 
End Sub 

Марка в качестве ответа, если я ответил на ваш вопрос