Sera a tutti!
Ho questo codice per l'inserimento e la visualizzazione di alcuni record da un db SqlServer, vorrei sapere come riadattarlo per farlo interagire con MySql:
codice:Imports System.Data Imports System.Data.SqlClient Partial Class _Default Inherits System.Web.UI.Page Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click 'Create Connection String 'Initlize all Database Varaibles Dim DBConn As New SqlConnection("UID=Faraz;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Sample Database;Data Source=FARAZ") Dim DBCmd As New SqlCommand Dim DBAdap As New SqlDataAdapter Dim DS As New DataSet DBConn.Open() Try 'Add Insert Statement DBCmd = New SqlCommand("INSERT INTO UserRecord(UserName, ContactNumber, Address, Country) VALUES (@UserName, @ContactNumber, @Address, @Country)", DBConn) 'Add Database Parameters DBCmd.Parameters.Add("@UserName", SqlDbType.NVarChar).Value = txtName.Text DBCmd.Parameters.Add("@ContactNumber", SqlDbType.NChar).Value = txtCNumber.Text DBCmd.Parameters.Add("@Address", SqlDbType.NVarChar).Value = txtAddress.Text DBCmd.Parameters.Add("@Country", SqlDbType.NVarChar).Value = ddlCountry.SelectedItem.Text DBCmd.ExecuteNonQuery() Response.Write("Your Record is Updated ") 'Set the value of DataAdapter DBAdap = New SqlDataAdapter("SELECT * FROM UserRecord", DBConn) 'Fill the DataSet DBAdap.Fill(DS) 'Bind with GridView control and Display the Record gvShowRecord.DataSource = DS gvShowRecord.DataBind() Catch exp As Exception Response.Write(exp) End Try 'Close Database connection 'and Dispose Database objects DBCmd.Dispose() DBAdap.Dispose() DBConn.Close() DBConn = Nothing End Sub End Class


Rispondi quotando
