
نوشته شده توسط
mshakeri
سلام
من هنوز لینک شما رو نخوندم کامل.
من از کد زیر برای اتصال به mysql در vb.neet استفاده می کنم. این کد به صورت سرور هم جواب داده. یعنی از یک سیستم دیگه بهش متصل شدم.
Imports MySql.Data.MySqlClient
Public Class Form1
Dim myConnString As String = "host=pc6;UserName=root;Password=;Database=myd b"
Dim myConnection As MySqlConnection = New MySqlConnection(myConnString)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myConnection.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mySelectQuery As String = "SELECT fname FROM Mytb where id='4'"
Dim myCommand As MySqlCommand = New MySqlCommand(mySelectQuery, myConnection)
Dim obj As Object = myCommand.ExecuteScalar
Dim str As String = CType(obj, String)
MsgBox(str)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim name, id, fname As String
name = "Ahangarpor"
id = "4"
fname = "barbod"
Dim cmd As MySqlCommand = New MySqlCommand("insert into Mytb (id,name,fname)values('" & id & "','" & name & "','" & fname & "')", myConnection)
cmd.ExecuteNonQuery()
MsgBox("ثبت شد")
End Sub
End Class
نمی دونم همین کد می تونه دیتابیس روی وب هم به کار بره یا نه.