Kết quả tìm kiếm

Tham gia diễn đàn chưa lâu! Nhưng cũng mong muốn gặp đồng hương có cùng sở thích học tập và yêu GPE. Nay lập topic này rất muốn quen và làm bạn với những thành viên có chung sơ thích học tập trên GPE đang làm việc hay sống tại Vĩnh Yên Vĩnh Phúc " Không kể tuổi tác cũng như nam hay nữ".Mục đích...

Cho mình hỏi là: Mình đã làm theo hướng dẫn trên diễn đàn tạo file activex dll từ VB6 cho VBA excel đơn giản như sau nhưng khi chạy luôn báo lỗi xin chỉ dùm chỗ thiếu sót. Từng bước mình làm như sau: + Mở VB6-->> form: new froject hiện lên chọn Activex DLL. + Tại cửa sổ quản lý project mình lần...

Private Sub DATATK_Click() Dim cn As Object Dim rs As Object Dim mysql As String, arrDD1, arrDD2, arrTP1, arrTP2, TP1, TP2, TP, kk Dim oXl As Object Dim oXlWb As Object Dim oXLSheet As Object Dim dic As Object, i As Long, j As Long, temp As String '---------------------- 'lay mang du lieu cua...

Anh em cho hỏi Trên excel khi muốn gán dữ liệu cho combobox mình thường làm như sau: 1: gán từng dữ liệu một và combobox là 1 cộtcombobox1.additem "du_lieu" 2: gán mảng cho combobox và combobox là n cột: thiết lập số cột của combobox trong properties >> columncount = n combobox1.list = arr arr...

Thực tế mình gặp rất nhiều khó khăn trong code VBA vì công ty cài toàn kingsoft 2013 mà chết cái là cùng 1 file khi bắt đầu viết VBA " giả sử là kingsoft" thì chuyển sang microsof 2007 nó đòi convert và thế là code báo lối lung tung lên cả. Trường hợp ngược lại cũng vây. Đơn giản với dòng code...

-Chào các ACE trên diễn đàn. Mình tham gia diễn đàn và học tập cũng rất nhièu từ diễn đàn. Nhưng có một vấn đề mà tìm mãi và tới giờ vẫn chưa trả lời được. -Mình muốn hỏi thế này: --------------------Mình có 2 máy nội bộ kết nối với nhau, trên mỗi máy có 1 file excel giả sử là ...

Hôm trước mình làm trên VB khi liên kết dữ liệu hiển thị trên datagrid thì có thể sửa được trực tiếp trên datagrid và dữ liệu trên excel cũng bị thay đổi luôn và hỏi cách không cho sủa được như thế nữa chỉ để sem dữ liệu thôi. nay cần sủa luôn thì timd lại bài viết thì đã bị xóa. ACE cho hỏi lại...

Dim cn As Object Dim rs As Object Dim sQL As String dim arr Set cn = CreateObject("ADODB.connection") Set rs = CreateObject("ADODB.recordset") cn.Provider = "Microsoft.ACE.OLEDB.12.0" cn.ConnectionString = "Data Source=" & App.Path & "\Book1.xlsx;Extended Properties=""Excel 12.0;HDR=Yes;"";"...

Mình có một database là file excel : book1 có sheet1 và sheet2 chứa dữ liệu Mình dùng form VB6 : Có một textbox và 1 command Mình muốn dùng ADO, SQL và recordset để hoán đổi dữ liệu trên 2 sheet theo mã nhập vào textbox ( phần bôi màu của dữ liệu trên 2 sheet sẽ được hoán đổi ) khi click command...

Anh em trên diễn đàn cho hỏi dòng code sau có vấn đề chõ nào mà mình chạy cứ báo lỗi dòng bôi đỏPrivate Sub Command1_Click() Dim cn As Object Dim rs As Object Dim lsSQL As String Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider =...

Cho mình hỏi là với code sau:Private Sub Form_Load() Dim cn As Object Dim rs As Object Dim tt As String Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.ACE.OLEDB.12.0" cn.ConnectionString = "Data Source= " & App.Path &...

Mình đã làm được điều chỉnh độ rộng, caption, tên của datafiled của cột trên datagrid/form/VB6 thong qua bảng thiết lập property pages. Nhưng giờ do caption và ten của datafiled lấy theo trên file của excel (sheet1) có ghi trên file up (không cố định có sự thay đổi) Vậy mình muốn tùy biến...

Mình có một datagrid, một text1 và một command khi load form thì datagrid đã nhận dữ liệu >>>COI NHƯ ĐÃ LÀM giờ mình muốn nhập vào text1 và click command để lấy lại dữ liệu theo điều kiện ( Có thể nói là muốn lọc dữ liệu hiển thị trên datagrid)Private Sub Text1_Click() Dim cn As Object Dim...

rs.Open sQL, cn, 3, 3 Mình đọc qua các topic và cũng hỏi đôi lần về vấn đề này nhưng hình như không đúng nội dung của topic nên không nhận được câu trả lời Mình muốn hỏi các chỉ số 3,3 trên có chính xác bao nhiêu thuộc tính và tác dụng? ( cả dạng số và chữ) Mong nhận được sớm câu trả lời sớm...

Mình muốn dùng kết nối ADO và truy vấn SQL để lọc dữ liệu từ excel và hiển thị trên datagrid của VB6 với dòng codeDim cn As Object Dim rs As Object Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.ACE.OLEDB.12.0"...

Mình coppy file trên mạng. về sửa lại theo cái mình hiểu để test thử nhưng gặp phải lối: Sub TongHop() Dim cnn As Object, lsSQL As String, lrs As Object Set cnn = CreateObject("ADODB.Connection") Set lrs = CreateObject("ADODB.Recordset") cnn.provider = "microsoft.ACE.OLEDB.12.0"...

Mình khôg biết phải thiết lập gì không nhưng chưa lần nào làm được một cái kết nối bằng ADO vì khi chạy báo lỗi luôn tại dòng khai báoPrivate Sub Form_Load() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Provider = "Microsoft.ACE.OLEDB.12.0"...

Mình mở file excel từ VB6 theo codePrivate Sub Form_Load() dim oXl as object dim oXlWb as object Set oXL = CreateObject("excel.application") Set oXLWb = oXL.workbooks.open("F:\test\HHH.xlsm") MsgBox ("da chay xong chuong trinh") End Sub Mình muốn doạn code bôi đỏ linh động hơn chút là lấy theo...

Mình có doạn code tren và file đính kèmPrivate Sub Worksheet_Activate() Dim dic As Object Dim nguon, i As Long, j As Long Dim arr(1 To 20, 1) Set dic = CreateObject("scripting.dictionary") nguon = Worksheets("DM").Range("D2:E" & Worksheets("DM").[E6500].End(xlUp).Row) j = 0 For i = 1 To...

Giả sử mình có file excel book1, tại sheet1 có danh sách từ "A1:A6" Mình muốn đưa danh sách này vào danh sách của combo trong form của VB6 thì làm như thế nào vây??