Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,562

HOME > .NET Framework > Forum > ขอสอบถามเกี่ยวกับการกรอก ชื่อฐานข้อมูล Username และ Password แล้วกด Save เพื่อเก็บค่าหน่อยครับ



 

ขอสอบถามเกี่ยวกับการกรอก ชื่อฐานข้อมูล Username และ Password แล้วกด Save เพื่อเก็บค่าหน่อยครับ

 



Topic : 125474



โพสกระทู้ ( 195 )
บทความ ( 0 )



สถานะออฟไลน์




ตามหัวข้อเลยครับ
เมื่อเปิดโปรแกรมขึ้นมาจะให้ตั้งค่า Config กำหนดพวกฐานข้อมูลที่จะเชื่อมต่อก่อนโดยกำหนดแต่ครั้งแรก

ภาพฟอร์มกรอกข้อมูล

connect

กรอกข้อมูลเสร็จกด save ข้อมูลลง Database (ยังไม่เชื่อต่อฐานข้อมูลจะให้มัน save ลงไปยังไง)
หลังจากกด save ก็จะปิดฟอร์มแล้วโหลดฟอร์มใหม่ขึ้นมาจังหวะโหลดฟอร์มใหม่ขึ้นมาก็จะดึงบานข้อมูลที่ save ไปขึ้นมาโชว์ใน textbox ประมาณนี้พอจะเข้าใจไหมครับ

พอจะแนะนำได้ไหมครับ VB.NET
ขอบคุณครับ



Tag : .NET, Ms SQL Server 2008, VB.NET









ประวัติการแก้ไข
2016-11-23 08:27:11
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-11-22 21:11:29 By : nakki321 View : 631 Reply : 5
 

 

No. 1

Guest


เก็บไว้ใน Access ก่อนก็ได้ครับ
rrr



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)







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-23 08:47:23 By : Guest
 


 

No. 2

Guest


ตอบความคิดเห็นที่ : 1 เขียนโดย : Guest เมื่อวันที่ 2016-11-23 08:47:23
รายละเอียดของการตอบ ::
หรือไม่ก็ ไฟล์Txt

Code (VB.NET)
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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-23 09:47:53 By : Guest
 

 

No. 3



โพสกระทู้ ( 4,148 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-23 09:56:54 By : lamaka.tor
 


 

No. 4



โพสกระทู้ ( 8,792 )
บทความ ( 2 )



สถานะออฟไลน์


แนะนำ ศึกษาการใช้ ini file ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-23 10:06:45 By : Chaidhanan
 


 

No. 5



โพสกระทู้ ( 195 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณครับพี่ ๆ
ที่เคยทำจะเป็น VB.NETเชื่อม SQLSERVER ซึ่งตัวนี้กำหนด ไว้ใน app.config xml ไฟล์ เก็บตัวแปลแล้วเรียกใช้จะเปลี่ยนพวกชื่อฐานข้อมูล user,pass ก็ใช้ได้ปกติ

แต่ตัวนี้ผมทำเป็น VB.NET เชื่อม Mysql (ลองแล้วมันerror พึ่งเคยทำเลยงงๆฮ่าๆ) เดี๋ยวว่าจะลองทำเป็นไฟล์Txt เหมือนที่พี่ข้างบนบอกลองดูครับ

ปล.ถ้ากำหนดไว้เลยก็เชื่อมได้ปกติแต่ผู้ใช้งานเค้าต้องไปกำหนดเอง

Code (VB.NET)
  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()


กระทู้นี้ก็น่าสนใจ
https://www.thaicreate.com/dotnet/forum/051796.html


ประวัติการแก้ไข
2016-11-23 11:16:00
2016-11-23 11:16:49
2016-11-23 11:19:08
2016-11-23 11:19:41
2016-11-23 11:24:53
2016-11-23 11:25:07
2016-11-23 11:25:25
2016-11-23 11:25:43
2016-11-23 11:26:00
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-23 11:15:26 By : nakki321
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอสอบถามเกี่ยวกับการกรอก ชื่อฐานข้อมูล Username และ Password แล้วกด Save เพื่อเก็บค่าหน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , pangpond.com , pangpond.co.th , สำนักงานบัญชี.com , รถมือสอง

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2021 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่