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

Registered : 109,037

HOME > .NET Framework > Forum > ผมจะ Connect Database แต่ไม่สามารถ connectได้ ผมพยายามดูแล้วแต่ก็ไม่มีส่วนไหนผิด ขอคำแนะนำด้วยนะคับ



 

ผมจะ Connect Database แต่ไม่สามารถ connectได้ ผมพยายามดูแล้วแต่ก็ไม่มีส่วนไหนผิด ขอคำแนะนำด้วยนะคับ

 



Topic : 087129



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



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




ผมจะCoonect Database แต่ไม่สามารถconnect

ผมพยายามดูแล้วแต่ก็ไม่มีส่วนไหนผิด ขอคำแนะนำด้วยนะคับ

-=----------------------------- Class" dbConn.vb"-----------------------------=-

Code (VBScript)
Imports System.Data.SqlClient
Imports System.Data

Public Class dbConn
    Public Shared Function GetConnectionstring() As String
        Return "Server=.\SQL2008;database=Workshopdb;Max Pool Size=400;Connect Timeout=600;"
    End Function

    Public Function GetDataTable(ByVal strsql As String, Optional ByVal strTableName As String = "") As DataTable
        Dim objConn As New SqlConnection
        Dim strConnString As String
        strConnString = GetConnectionstring()

        strsql = strsql

        Dim dbConnection As New SqlConnection(strConnString)


        Dim cmd As New SqlCommand(strsql, dbConnection)


        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet()
        da.Fill(ds, strTableName)

        If ds.Tables.Count > 0 Then
            If ds.Tables(0).Rows.Count > 0 Then
                Return ds.Tables(0)
            End If
        End If
        Return New DataTable

    End Function

    Public Function ExecuteNonQuery(ByVal strSQL As String) As Integer
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString As String

        strConnString = GetConnectionstring()

        objConn.ConnectionString = strConnString
        objConn.Open()

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        Try
            objCmd.ExecuteNonQuery()

        Catch ex As Exception
            objConn.Close()
            objConn = Nothing
            Return -1
        End Try

        objConn.Close()
        objConn = Nothing
        Return 0
    End Function

    Public Function ExecuteNonQuerywithErrorMsg(ByVal strSQL As String) As String
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString As String

        strConnString = GetConnectionstring()

        objConn.ConnectionString = strConnString
        objConn.Open()

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        Try
            objCmd.ExecuteNonQuery()

        Catch ex As Exception
            objConn.Close()
            objConn = Nothing
            Return ex.Message.ToString()
        End Try

        objConn.Close()
        objConn = Nothing
        Return ""
    End Function

    Public Function ExecuteScalar(ByVal strSQL As String) As Integer
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString As String
        Dim intNumRows As Integer
        strConnString = GetConnectionstring()

        objConn.ConnectionString = strConnString
        objConn.Open()

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        Try
            intNumRows = objCmd.ExecuteScalar()

        Catch ex As Exception
            objConn.Close()
            objConn = Nothing
            Return -1
        End Try

        objConn.Close()
        objConn = Nothing
        Return intNumRows
    End Function
End Class


-=-------------------Code "Register.aspx.vb"-------------------=-

Code (ASP)
Imports System.Data.SqlClient

Public Class Register
    Inherits System.Web.UI.Page

    Dim conn As dbConn

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LoadTable()

    End Sub

    Protected Sub BtnRegis_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnRegis.Click

    End Sub

    Public Sub LoadTable()

        Me.GridView1.DataSource = conn.GetDataTable("select * From Account", "Username")
        Me.GridView1.DataBind()
    End Sub

End Class




Tag : ASP.NET Ms SQL Server 2008, VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-11-23 09:32:38 By : banhan View : 1036 Reply : 4
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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

มี Error หรือว่าอะไรไหม๊ครับ






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


 

No. 2



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



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


เวลา run มันไม่มี error แต่มันจะมีเตือนตรงที่มีการ connect database ในหน้า .aspx.vb อ่ะคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-23 10:19:01 By : banhan
 

 

No. 3



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



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

ในฟังก์ชัน GetDataTable() ยังไม่ได้สั่ง dbConnection.open() ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-23 11:31:05 By : latee
 


 

No. 4



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



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


ผมสร้างเป็น Module แล้วเรียกใช้เอาครับ

Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Module Module1
Public CONN As New OleDbConnection

Public Const condb As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=PartDataBase"
    Public Sub ConnectDB()
        With CONN
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = condb
            .Open()
        End With
    End Sub
End Module



ประวัติการแก้ไข
2012-11-23 11:49:14
2012-11-23 11:49:37
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-23 11:47:30 By : Littlefatboyz
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ผมจะ Connect Database แต่ไม่สามารถ connectได้ ผมพยายามดูแล้วแต่ก็ไม่มีส่วนไหนผิด ขอคำแนะนำด้วยนะคับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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