กรอกข้อมูลเสร็จกด save ข้อมูลลง Database (ยังไม่เชื่อต่อฐานข้อมูลจะให้มัน save ลงไปยังไง)
หลังจากกด save ก็จะปิดฟอร์มแล้วโหลดฟอร์มใหม่ขึ้นมาจังหวะโหลดฟอร์มใหม่ขึ้นมาก็จะดึงบานข้อมูลที่ save ไปขึ้นมาโชว์ใน textbox ประมาณนี้พอจะเข้าใจไหมครับ
พอจะแนะนำได้ไหมครับ VB.NET
ขอบคุณครับ
Tag : .NET, Ms SQL Server 2008, VB.NET
ประวัติการแก้ไข 2016-11-23 08:27:11
Date :
2016-11-22 21:11:29
By :
nakki321
View :
1090
Reply :
5
No. 1
Guest
เก็บไว้ใน Access ก่อนก็ได้ครับ
Class Code (VB.NET)
Public Function SelectDB(ByVal Sql As String) As DataTable
Dim DT As New DataTable()
Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ไฟล์ที่เก็บ Access ";Persist Security Info=False")
Dim da As New OleDbDataAdapter(Sql, conn)
da.Fill(DT)
conn.Close()
conn.Dispose()
End Using
Return DT
End Function
Public Function ExecuteDB(ByVal Sql As String) As Integer
Using conn As New OleDbConnection(Module1.strcon2)
Dim i As Integer = 0
Dim com As New OleDbCommand
'Dim Com As New SqlCommand(Sql, conn)
With com
.CommandType = CommandType.Text
.CommandText = Sql
.Connection = conn
.Parameters.Clear()
End With
conn.Open()
Try
i = com.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error Funtion ExecuteDB", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
conn.Close()
conn.Dispose()
com = Nothing
Return i
End Using
End Function
Code (VB.NET)
'สำหรับ Select
sql = "Select * From Data"
Dim DT As DataTable = New ClassConnectAcc().SelectDB(sql)
'สำหรับ Insert
OLE = "insert into Data ( ) Values ( )"
Dim insertOLE As Integer = New ClassConnectAcc().ExecuteDB(OLE)
Imports System.IO
Sub WriterCONFIGFOREST()
Try
Dim objStreamWriter As StreamWriter
objStreamWriter = New StreamWriter("C:\DataConfig.txt")
objStreamWriter.WriteLine("::::::LOGIN::::::")
objStreamWriter.WriteLine(TxtServerName.Text)
objStreamWriter.WriteLine(TxtDatabase.Text)
objStreamWriter.WriteLine(TxtUser.Text)
objStreamWriter.WriteLine(TxtPass.Text)
objStreamWriter.Close()
Catch ex As Exception
End Try
End Sub
Try
Dim objStreamReader As StreamReader
Dim strLine As String
Dim lc As Integer = 0
objStreamReader = New StreamReader("C:\DataConfig.txt")
strLine = objStreamReader.ReadLine
Do While Not strLine Is Nothing
Console.WriteLine(strLine)
strLine = objStreamReader.ReadLine
lc += 1
If lc = 1 Then
TxtServerName.Text = strLine
ElseIf lc = 2 Then
TxtDatabase.Text = strLine
ElseIf lc = 3 Then
TxtUser.Text = strLine
ElseIf lc = 4 Then
TxtPass.Text = strLine
End If
Loop
objStreamReader.Close()
Console.ReadLine()
Catch ex As Exception
End Try
Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim dtAdapter As MySqlDataAdapter
Dim dt As New DataTable
Dim strConnString, strSQL As String
strConnString = "Server=localhost;User Id=root; Password=1234; Database=db_name; Pooling=false"
objConn.ConnectionString = strConnString
objConn.Open()
Load balance : Server 04
