Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: nguyenbalai 01-02-12, 04:13 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (13) |
|
Viết bởi: hadangpr 01-02-12, 02:07 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2) |
Đã tìm được nguyên nhân rồi các bác ạ ( e mừng quá!). Thì ra là bản của em là sql server sp2, em Upgrade lên sp3 connect được ngay. Cảm ơn noname nhiều bác nhiệt tình với em quá.
Nhân đây em cũng tặng các bác 1 đoạn code dùng để connect đến sql server mà không cần phải khai báo system dsn hay user dsn nữa, rất tiện dụng khi đem đến các máy khác trong mạng lan:
Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
On Error GoTo AttachDSNLessTable_Err
Dim td As TableDef
Dim stConnect As String
For Each td In CurrentDb.TableDefs
If td.Name = stLocalTableName Then
CurrentDb.TableDefs.Delete stLocalTableName
End If
Next
If Len(stUsername) = 0 Then
'//Use trusted authentication if stUsername is not supplied.
stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
Else
'//WARNING: This will save the username and the password with the linked table information.
stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
End If
Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
CurrentDb.TableDefs.Append td
AttachDSNLessTable = True
Exit Function
AttachDSNLessTable_Err:
AttachDSNLessTable = False
MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description
End Function
Em xin giải thích qua cách sử dụng hàm: hàm này có 5 đối số
stLocalTableName: Tên Table muốn đặt tên trong ngăn table của access (Tùy bạn nhưng phải theo chuẩn đặt tên table tức là không có các ký tự đặc biệt)
stRemoteTableName: Table trên Sql server (Tên table này phải chính xác nếu không nó cự lại không chạy ngay)
stDatabase: Tên Database chứa table mà ta muốn connect
stUsername,stPassword: User và mật khẩu để đăng nhập vào database ( Cái này là do lúc bạn cài đặt sql, nếu không đặt mật khẩu thì bạn để trống trong dấu ngoặc kép " ")
VD: trong sự kiện form open em đặt đoạn code như sau
Call AttachDSNLessTable("Don_dat_hang","Orders","Northwind","sa","t123") là em đã link được table Orders trong database Northwind rồi em đặt tên trong table của em là don_dat_hang
EM không hiểu ý cua anh. ví dụ em muốn link nhiều Tables thì em phải khai báo tất cả các Tables hả anh vba
Còn chổ nào có stLocalTableName em phải thay bằng tên Tables hết hay sao anh. Anh nào hiểu thì chỉ em với.
|
Viết bởi: quan_pc 31-01-12, 09:40 PM Chuyên mục: Forms - Bài trả lời (2) |
đây là file của em mong anh chị giúp với!
đầy là link http://www.mediafire.com/?d5l17d3cawkdr12 (300KB)
Hình mô tả:
![[Hình: 8a589a4a4f1ba735c94ffcd412b2cd53_40448601.hinh.jpg]](http://nh1.upanh.com/b5.s13.d5/8a589a4a4f1ba735c94ffcd412b2cd53_40448601.hinh.jpg)
[/url]
cập nhập thông tin trên form chinh các form liên quan cũng thay đổi
|
Viết bởi: Hainguyenthanh 31-01-12, 11:21 AM Chuyên mục: Table - Bài trả lời (2) |
em thành lập các form sau: F_benhnhan; F_BSCD; F_BSTB; F_vithe. em cập nhập thông tin bn sinh thiết ở F_benhnhan trong đó có liên kết với các Form trên, ở phần mô tả vi thể em lấy nguồn từ F_vithe (gồm 2 dòng: dòng trên FB; dòng 2 mô tả FB= hiện diện tế bào biểu mô tuyến vú lành tính, bọt bào) sau đó có sửa lại ở phần mô tả cho phù hợp với bệnh nhân của mình (hiện diện tế bào biểu mô tuyến vú lành tính, bọt bào và đám tế bào sợi mỡ ).
Sau đó em cập nhập thông tin cho bệnh nhân thứ hai bệnh tương tư như bệnh nhân đầu. Lúc này em lấy thông tin từ nguồn của F_vithe thì thông tin bị thay đổi như lần sửa (hiện diện tế bào biểu mô tuyến vú lành tính, bọt bào và đám tế bào sợi mỡ) chứ không phải nguyên thủy ban đầu (hiện diện tế bào biểu mô tuyến vú lành tính, bọt bào).
Em muốn sau mỗi lần cập nhập bệnh nhân dù có sửa thông tin trên các Form liên quan, thì thông tin ở các Form liên quan vẫn được giữ nguyên như ban đầu.
Xin cac huynh cao kiến giúp cho.
ThS.BS. Hải:
|
|
Viết bởi: sms2012 21-01-12, 12:49 PM Chuyên mục: Forms - Bài trả lời (4) |
Các anh có thể giúp em.
Đây là CSDL của em mới lập http://199.91.153.184/l3x1qu9p5lfg/lbq1j...msdemo.mdb
| Chủ đề Mới nhất |
| Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 44 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,278 |
| Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,172 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,042 |
| Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 72 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,375 |
| Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 757 |
| Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,075 |
| (Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,698 |
| Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,280 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,308 » Thành viên mới nhất: 8kbet1comco2 » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ |