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,027

HOME > .NET Framework > Forum > VB6 นะครับ รบกวนหน่อยคับ มันติดปัญหาตรง Set DataGrid1.DataSource = rs ครับ



 

VB6 นะครับ รบกวนหน่อยคับ มันติดปัญหาตรง Set DataGrid1.DataSource = rs ครับ

 



Topic : 030141

Guest




Code (VB)
Dim DBcnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'Set DBcnn = New ADODB.Connection
DBcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\project\AotuCar\db\conf.mdb;Persist Security Info=False"
DBcnn.Open

If DBcnn.State = adStateOpen Then

    Set rs = DBcnn.Execute("select * from Tbuser")

    Set DataGrid1.DataSource = rs

Else
    MsgBox "No " & DBcnn.State & " = " & adStateConnecting
End If


มันติดปัญหาตรง Set DataGrid1.DataSource = rs ครับ
มันฟ้อง runtime-error 7004 the rowset is bookmarkable แต่ผมลอง comment แล้วเอา Msgbox มาตรวจสอบ ค่ามันออกครับ อยากจะเอาไปใส่ใน dataGrid1 คับ รบกวนที ไม่ทราบเหมือนกันว่าลืมเขียนอะไรไป หรือต้องเซตค่าตรงไหนบ้างหรือป่าวคับ



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-08-10 01:00:03 By : งมมานาน View : 3200 Reply : 11
 

 

No. 1



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

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

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

Code
DataGrid1.DataSource = rs


น่าจะไม่มี Set น่ะครับ


Date : 2009-08-10 07:12:47 By : webmaster
 


 

No. 2

Guest


ผมลองเอาเซ๊ตออกตามที่ คุณ MR.WIN มัน Error Method or data member Not found ครับ
Date : 2009-08-10 09:24:19 By : งมมานาน
 

 

No. 3



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


ลอง connect database แบบ driver ดีมั้ยครับ
Date : 2009-08-10 12:20:57 By : Sek-nakarin
 


 

No. 4



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


Code (VB.NET)
Dim  g_Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    m_strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "D:\project\AotuCar\db\conf.mdb;uid=" & ";pwd=;"
    g_Conn.Open m_strConn

    Set cmd.ActiveConnection = g_Conn
    
    With g_Conn
        If .State = adStateOpen Then .Close
        .ConnectionString = m_strConn
        .CursorLocation = adUseClient
        .ConnectionTimeout = 10000
        .CommandTimeout = 10000
        .CursorLocation = adUseClient
        .Open
    End With
        


If rs.State = adStateOpen Then rs.Close
strSql = "select * from Tbuser"
rs.Open strSql, g_Conn, adOpenKeyset, adLockOptimistic
 Set DataGrid1.DataSource = rs

Date : 2009-08-10 12:29:23 By : Sek-nakarin
 


 

No. 5

Guest


ได้แล้วครับ ผมลองใส่

DBcnn.CursorLocation = adUseClient

แต่ไม่ทราบความหมายคับ มันคืออะไร จำเป็นต้องใส่ด้วยหรอครับ
Date : 2009-08-10 12:32:46 By : งมมานาน
 


 

No. 6



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


m_strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & "D:\project\AotuCar\db\conf.mdb;uid=" & ";pwd=;"


แก้บรรทัดที่ 3 นิดนึง
Date : 2009-08-10 12:35:30 By : Sek-nakarin
 


 

No. 7



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


CursorLocation Properties ใช้กำหนดให้ Cursor( ตัวชี้ไปที่ Record) อยู่ฝั่ง Client หรือ Server
rst.CursorLocation = adUserNone '//-- ไม่ใช้ Cursor เลย จะเร็วที่สุด เหมาะสำหรับแสดง
rst.CursorLocation = adUserClient '//-- ใช้ที่ฝั่ง Client
rst.CursorLocation = adUserServer '//-- ใช้ที่ฝั่ง Server
Date : 2009-08-10 12:40:36 By : Sek-nakarin
 


 

No. 8

Guest


ขอบคุณมากคับ ตอนนี้ก็เริ่ม เขียนได้บ้างแล้วครับ

หมายเหตุ
เพิ่งเริ่มเขียนครับ ยังไม่เคยจับ VB มาก่อน เคยเขียน แต่ pb ครับ
Date : 2009-08-11 14:44:12 By : งมมานาน
 


 

No. 9

Guest


คุณ Sek-nakarin ครับ อันนี้ใช้ไม่ได้ครับ มัน Error Varlible Not defind
rst.CursorLocation = adUserNone '//-- ไม่ใช้ Cursor เลย จะเร็วที่สุด เหมาะสำหรับแสดง
Date : 2009-08-11 15:00:41 By : งมมานาน
 


 

No. 10



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


http://www.thaiio.com/Appdown/Appdown.htm

ช่วยให้การเขียน วีบี สนุกขึ้นเยอะครับ
Date : 2009-08-11 15:07:44 By : Sek-nakarin
 


 

No. 11



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

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

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


เอาโค้ดที่เขียนว่า Option Explicit บรรทัดบนสุดออกครับ

ปกติใช้

rst.CursorLocation = adUserClient '//-- ใช้ที่ฝั่ง Client

ถูกแล้ว
Date : 2009-08-11 15:21:05 By : Sek-nakarin
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : VB6 นะครับ รบกวนหน่อยคับ มันติดปัญหาตรง Set DataGrid1.DataSource = rs ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่