16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.ComponentModel
Imports MySql.Data.MySqlClient
Imports System.Data
Imports System.Windows.Forms
Public Function getsqldata(ByVal sqlstr As String) As DataSet '-------建立获取数据function>>getsqldata(sqlstr)
Dim mysqlconn As New MySqlConnection("database=[123];" & "SERVER=[IP ADDRESS];" & "UID=" & [ID] & " ;PWD=" & [pwd])
Dim mds As New DataSet
mds.Clear()
Try
If mysqlconn.State = ConnectionState.Closed Then
mysqlconn.Open()
End If
Dim mda As New MySqlDataAdapter("select distinct model_list.customer from model_list where model_list.parameter_exist=1", mysqlconn)
mda.Fill(mds)
'mda = Nothing
'mysqlconn.Close()
Catch ex As Exception
If mysqlconn.State = ConnectionState.Open Then
mysqlconn.Close()
End If
MsgBox(ex.Message)
'Me.Close()
'home.Show()
End Try
Return mds
'mda = Nothing
End Function