MySQL Select

Dim con1 As New MySqlConnection("server=localhost;Port=3307;user id=root;password=****;database=benchmark_database")
Dim sda1 As New MySqlDataAdapter("select * from class", con1)
Dim ds1 As New DataSet()
sda1.Fill(ds1)
My.Response.Write(ds1.Tables(0).Rows(0).Item(0))

dotConnect for MySQL

http://www.devart.com/dotconnect/mysql/download.html

MySQL ConnectionString

<add name="ConnectionString" connectionString="User Id=root;Password=****;Host=255.255.255.255;Port=3307;Database=benchmark_database;Persist Security Info=True;CharSet=utf8;" providerName="Devart.Data.MySql" />



ref http://www.connectionstrings.com/mysql

Web Form 事件

    protected void Page_PreInit(object sender, EventArgs e){
       
    }
   
    protected void Page_Init(object sender, EventArgs e){
       
    }
   
    protected void Page_InitComplete(object sender, EventArgs e){
       
    }
   
    protected void Page_PreLoad(object sender, EventArgs e){
       
    }
   
    protected void Page_Load(object sender, EventArgs e){
       
    }
   
    protected void Page_LoadComplete(object sender, EventArgs e){
       
    }
   
    protected void Page_PreRender(object sender, EventArgs e){
       
    }
   
    protected void Page_PreRenderComplete(object sender, EventArgs e){
       
    }
   
    protected void Page_SaveStateComplete(object sender, EventArgs e){
       
    }

前端綁定Eval數據

VB.Net：xxx(eval("field"))
C#：xxx(Eval("field").ToString())

Give me i want 加強版

    Public Shared Function Gmiw(ByVal com As String, ByVal rol As Integer, ByVal col As Integer, Optional ByVal conn As String = "ConnectionString") As String
        Try
            Dim db As New SysDb(conn)
            If Left(com.Trim, 6).ToLower = "select" Then
                db.SelectCommand = com
                Dim dv As Data.DataView = db.Select(New DataSourceSelectArguments)
                If dv.Count > 0 Then
                    Return dv.Item(rol).Item(col)
                Else
                    Return ""
                End If
            ElseIf Left(com.Trim, 6).ToLower = "insert" Then
                db.InsertCommand = com
                Return db.Insert()
            ElseIf Left(com.Trim, 6).ToLower = "update" Then
                db.UpdateCommand = com
                Return db.Update()
            ElseIf Left(com.Trim, 6).ToLower = "delete" Then
                db.DeleteCommand = com
                Return db.Delete()
            Else
                Return ""
            End If
        Catch ex As Exception
            LastError = ex.Message
            'MsgBox("GetPersonalInfo:" & ex.Message)
            Return ""
        End Try
    End Function

查詢資料是否存在 by MSSQL

Public Shared Function isDataExist(ByVal sql As String) As Boolean
Dim db As New SysDb
db.SelectCommand = sql
Dim dv As Data.DataView = db.Select(New DataSourceSelectArguments)
If dv.Count > 0 Then
Return True
Else
Return False
End If
End Function