• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

hỏi về Load dữ liệu từ SQL Server lên Datacombo trong VB6

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

baoho1977
Thành viên chính thức
Thành viên chính thức
Bài viết: 35
Ngày tham gia: T.Tư 25/05/2011 9:42 am
Has thanked: 8 time

hỏi về Load dữ liệu từ SQL Server lên Datacombo trong VB6

Gửi bàigửi bởi baoho1977 » T.Năm 26/10/2017 5:15 pm

Em có 2 máy:
Máy 1: cài VB để Code, và cài SQL Server 2005 làm Database (gọi là DB1)
Máy 2: cài SQL server 2005 làm Database (gọi là DB2)
Em đã code xong 1 CT và chạy được trên máy 1 (chạy trực tiếp chương trình VB6 nhé) kết nối đến DB1 trên máy 1--> load được dữ liệu lên Datacombo
Với câu lệnh kết nối như sau:
st = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID =sa;pwd=****;Initial Catalog= Quanly***; Data Source= tên máy 1\sqlexpress;1433"

Đồng thời, nếu em kết nối đến DB2 trên máy 2 (chạy trực tiếp chương trình VB6 trên máy 1)--> load được dữ liệu lên Datacombo
Câu lệnh kết nối:
st = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID =sa; pwd=sql***;Initial Catalog= Quanly**;Data Source= tên máy 2\SQLEXPRESS;1433"
Tuy nhiên, sau khi em dùng Inno Setup để tạo File cài đặt và cài File này trên máy 2, kết nối đến DB1(trên máy 1) thì phần dữ liệu trong Datacombo không load được dữ liệu.
Datacombo này có Row souce: là Adodc1
phương thức kết nối ADODC1 như sau:
'ket noi SERVER may chu máy 2
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID =sa;pwd=sql***;Initial Catalog= Quanly***; Data Source= máy chủ 2\sqlexpress;1433"
'ket noi tai may nay máy 1
' Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID =sa;pwd=sql***;Initial Catalog= Quanly***; Data Source= máy chủ 1\sqlexpress;1433"
Adodc1.RecordSource = "select tenchibo from tblchibo where iddangbo=" & id_Dangbo
Adodc1.Refresh
các bác HD em để tải được dữ liệu lên Datacombo từ máy 2 (máy cài CT từ File cài đặt nói trên) kết nôi đến DB1 của máy 1 (qua mạng LAN)
Xin nói thêm là dữ liệu trong Textbox, Datagrid,DTPicker của chương trình cài đặt trên máy 2 vẫn load được bình thường
em cảm ơn các bác
(em xin lỗi vè không biết tải hình ảnh lên FR)



baoho1977
Thành viên chính thức
Thành viên chính thức
Bài viết: 35
Ngày tham gia: T.Tư 25/05/2011 9:42 am
Has thanked: 8 time

Re: hỏi về Load dữ liệu từ SQL Server lên Datacombo trong VB6

Gửi bàigửi bởi baoho1977 » T.Sáu 27/10/2017 10:35 am

em dùng tạm ComboBox để thay datacombo (làm lại khá nhiều form)
code:

Mã: Chọn hết

 sqlStr = "select ten*** from tblchibo where id8***=" & id_****
    Rs3.Open sqlStr, cn, adOpenKeyset
With cn
    While Not Rs3.EOF
        Combo1.AddItem (Rs3!ten***)
      Rs3.MoveNext
    Wend
End With

Tuy nhiên em vẫn muốn dùng bằng Datacombo, các anh em nếu biêt chỉ giúp em với. Thanks

baoho1977
Thành viên chính thức
Thành viên chính thức
Bài viết: 35
Ngày tham gia: T.Tư 25/05/2011 9:42 am
Has thanked: 8 time

Re: hỏi về Load dữ liệu từ SQL Server lên Datacombo trong VB6

Gửi bàigửi bởi baoho1977 » CN 05/11/2017 8:48 am

chào buổi sáng mọi người.
ko ai giúp em với ạ, hija


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.6 khách