HUYNHTIEN0202
Thành viên chính thức
- Tham gia
- 22/8/14
- Bài viết
- 92
- Được thích
- 1
Không hiểu ý bạn là cập nhật như thế nào? Với bài toán này thì trước tiên bạn cần viết 1 procedure trên SQL server cho việc cập nhật dữ liệu, trên Excel bạn chỉ là truyền tham số và thực thi procedure đó.Chào Anh Chị
Nhờ các Anh Chị giúp code cập nhật dữ liệu theo điều kiện ,khi em sữa dữ liệu cột E & cột J thì những mã hàng của cột A sẽ cập nhật vào Sever.
Các Anh chị xem file dính kèm.
Ý mình muốn danh sách những itemid cột A có số liệu thay đổi thì sẽ cập nhật vào server .Không hiểu ý bạn là cập nhật như thế nào? Với bài toán này thì trước tiên bạn cần viết 1 procedure trên SQL server cho việc cập nhật dữ liệu, trên Excel bạn chỉ là truyền tham số và thực thi procedure đó.
Danh sách itemid của bạn có nhiều không? Mình nghĩ là bạn nên viết script trên sql server để nhập cả file excel vào CSDL hơn là viết code trên Excel để cập nhật dữ liệuÝ mình muốn danh sách những itemid cột A có số liệu thay đổi thì sẽ cập nhật vào server .
Chào anh,thử đặt công thức ở file excel rồi copy paste vào màn hình New querry trong SQL. Xem file gửi kèm
Hì; Chào quanluu1989 , hôm qua mình về sớm hơi tiếc không ngồi thêm được với mọi người, chắc các phần sau của buổi giao lưu rôm rả lắm ( mình đang hóng ảnh của Ban tổ chức)Chào anh,
Rất vui được gặp anh hôm qua.
câu lệnh update của anh chuẩn rồi nhưng thao tác sẽ bị thủ công và có vấn đề nữa là mình phải check xem dữ liệu có thật sự thay đổi. Trong trường hợp này như em đề xuất ở #4 là nên viết câu truy vấn ở sql server và tạo job để nó có thể chạy và update liên tục mà mình không phải làm thủ công cho lần sau.
Chào bạnthử đặt công thức ở file excel rồi copy paste vào màn hình New querry trong SQL rồi Ctrl+E. Xem file gửi kèm
Private Sub UpdateSQLData()
On Error GoTo err
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql_string As String
Dim strconn As String
DataBaseName = "----"
ServerName = "196.1.1.1/SSDDSDS"
UserId = "ADMIN"
Password = "123"
strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName
sql_string = "update transactions set CustomerID='2' where amount =1000 "
cn.Open strconn
rs.Open sql_string, cn
Set rs = Nothing
cn.Close
Exit Sub
err:
MsgBox err.Description
End Sub
SQL Server nào mà để cho admin nối khơi khơi vào bằng VBA thế này? đúng là tự sát.
.Hướng giải quyết là, bạn tạo một trường Binary để lưu cả file lên. Bạn tìm từ khóa Google "How to insert file to SQL Server". Download thì cũng chỉ là SELECT .. WHERE file_id=xxx và bạn làm một bước StreamToFile...
Hi anh, không biết phần update này anh đã có hướng giải quyết chưa ạ, có thể share giúp em cách làm được không anhChào Anh Chị
Nhờ các Anh Chị giúp code cập nhật dữ liệu theo điều kiện ,khi em sữa dữ liệu cột E & cột J thì những mã hàng của cột A sẽ cập nhật vào Sever.
Các Anh chị xem file dính kèm.