Thứ ba, 22 Tháng tư 2003, 08:59 GMT+7

Cách nhập dữ liệu từ VB vào Access (1)

Toi muon lap trinh bang VB de nhap du lieu cho mot table trong Access. Cu the la toi co lam mot form co chua cac textbox de nhap du lieu, xin cac anh chi cho huong dan lam the nao de dua du lieu trong cac textbox do vao mot table trong Access theo cac truong tuong ung. Mong cac anh chi hoi am som. Cam on rat nhieu!

Nguyen Dai An

Hồi âm:

Em men!
Anh that su van chua hieu ro ve cau hoi cua em dua ra. Em nhap du lieu gi vay? Anh da viet thu tu tung phan lien ket giua lap trinh VB va Database de chi dan cach thuc duoi day cho em tham khao them. Vay em lam theo cach huong dan duoi day:

1. Cau tao mot ASCII text file de dung trong thi du nay. Neu em chua co cau tao san the text file, em co the bo qua buoc thu 5 -- Ngoai tru loading Grid1 with data from your text file.
2.Tang them three command buttons and two grid controls (GRID.VBX) to Form1.
3. Dung theo bang chi dan duoi day, dat the properties of the controls ma em da tang them o buoc thu 2.
Control Property New Value
--------------------------------------------------------------------
Command1 Caption "Press to Build Text File and Display in Grid"
Command2 Caption "Press to Transfer Data and Build New DB"
Command3 Caption "Press to Display the Data of the New Database"
Grid1 Cols 5
Grid1 Rows 35
Grid2 Cols 5
Grid2 Rows 35
4.Tang them code toi the (general) section of Form1:
Dim nums(30) As Long
Dim names(30) As String * 20
Dim addresses(30) As String * 25
Dim ss_nums(30) As String * 12
Const DB_LONG = 4
Const DB_TEXT = 10
Const DB_LANG_GENERAL = ";LANGID=0x0809;CP=1252;COUNTRY=0"
5.Tang them code toi the Form load event procedure:
Sub Form_Load ()
Show
grid1.ColWidth(1) = 1000 "For Emp ID
grid1.ColWidth(2) = 2000 "For Emp Name
grid1.ColWidth(3) = 3000 "For Emp Addr
grid1.ColWidth(4) = 2000 "For Emp SSN
grid1.Col = 1
grid1.Row = 0
grid1.Text = "Emp ID"
grid1.Col = 2
grid1.Row = 0
grid1.Text = "Emp Name"
grid1.Col = 3
grid1.Row = 0
grid1.Text = "Emp Addr"
grid1.Col = 4
grid1.Row = 0
grid1.Text = "Emp SSN" grid2.ColWidth(1) = 1000
grid2.ColWidth(2) = 2000
grid2.ColWidth(3) = 3000
grid2.ColWidth(4) = 2000
grid2.Col = 1
grid2.Row = 0
grid2.Text = "Employee ID"
grid2.Col = 2
grid2.Row = 0
grid2.Text = "Employee Name"
grid2.Col = 3
grid2.Row = 0
grid2.Text = "Employee Addr"
grid2.Col = 4
grid2.Row = 0
grid2.Text = "Employee SSN"
End Sub
6.Tang them code toi the Command1 click event procedure:
Sub Command1_Click ()
For i% = 1 To 30
nums(i%) = i%
names(i%) = "John Doe # " + Str$(i%)
addresses(i%) = Str$(i%) + " Mocking Bird Lane"
If i% < 9 Then
"* Enter the following four lines as one, single line:
ss_nums(i%) = Trim$(Str$(i%) + Trim$(Str$(i%))
+ Trim$(Str$(i%)) + "-" + Trim$(Str$(i% + 1))
+ Trim$(Str$(i% + 1)) + "-" + Trim$(Str$(i%))
+ Trim$(Str$(i%)) + Trim$(Str$(i%)) + Trim$(Str$(i%)))
Else
"* Enter the following two lines as one, single line:
ss_nums(i%) = Trim$(Trim$(Str$(999)) + "-" + Trim$(Str$(88))
+ "-" + Trim$(Str$(7777)))
End If
Next i%
Open "Testdata.DAT" For Output As #1
For j% = 1 To 30
Print #1, nums(j%)
Print #1, names(j%)
Print #1, addresses(j%)
Print #1, ss_nums(j%)
Next j%
Close #1
For i% = 1 To 30
grid1.Col = 1
grid1.Row = i%
grid1.Text = nums(i%) "Load Emp IDs
grid1.Col = 2
grid1.Row = i%
grid1.Text = names(i%) "Load Emp Names
grid1.Col = 3
grid1.Row = i%
grid1.Text = addresses(i%) "Load Emp Addrs
grid1.Col = 4
grid1.Row = i%
grid1.Text = ss_nums(i%) "Load Emp SSNs
Next i%
End Sub
7.Tang them code toi the Command2 click event procedure:
Sub Command2_Click ()
Dim newdb As Database
Dim newtb As Table
Dim newtd As New tabledef
Dim newidx As New Index
Dim field1 As New field "For Emp nums
Dim field2 As New field "For Emp names
Dim field3 As New field "For Emp addresses
Dim field4 As New field "For Emp ss_nums
screen.MousePointer = 11 "Display the time to build
Set newdb = CreateDatabase("NEWDB.MDB", DB_LANG_GENERAL)
newtd.Name = "Emp_Table" "* New table name
field1.Name = "Emp_ID" "* Holds Employee ID nums()
field1.Type = DB_LONG
newtd.Fields.Append field1
field2.Name = "Emp_Name" "* Holds Emp names()
field2.Type = DB_TEXT
field2.Size = 20
newtd.Fields.Append field2
field3.Name = "Emp_Addr" "* Holds Employee addr()
field3.Type = DB_TEXT
field3.Size = 25
newtd.Fields.Append field3
field4.Name = "Emp_SSN" "* Holds emp ss_nums()
field4.Type = DB_TEXT
field4.Size = 12
newtd.Fields.Append field4
newidx.Name = "Emp_ID_IDX" "* You have to have an index
newidx.Fields = "Emp_ID"
newidx.Primary = True
newtd.Indexes.Append newidx
newdb.TableDefs.Append newtd
Set newtb = newdb.OpenTable("Emp_Table")
Open "Testdata.dat" For Input As #1
BeginTrans
Do While Not (EOF(1))
newtb.AddNew
Line Input #1, tmp1$ "Retrieve empl_id
Line Input #1, tmp2$ "Retrieve empl_name
Line Input #1, tmp3$ "Retrieve empl_addr
Line Input #1, tmp4$
newtb("Emp_ID") = Trim$(tmp1$) "Place in field1
newtb("Emp_Name") = Trim$(tmp2$) "Place in field2
newtb("Emp_Addr") = Trim$(tmp3$) "Place in field3
newtb("Emp_SSN") = Trim$(tmp4$) "Place in field4
newtb.Update "Save to table
Loop
CommitTrans
Close #1 "Close text file
newtb.Close "Close DB"s table
newdb.Close "Close DB
screen.MousePointer = 0 "Set back to show done
End Sub
8.Tang them code toi the Command3 click event procedure:
Sub Command3_Click ()
Dim db As Database
Dim t As Table
Dim counter%
Set db = OpenDatabase("NEWDB.MDB")
Set t = db.OpenTable("Emp_Table")
counter% = 1 "Start counter at Row=1
Do Until t.EOF
grid2.Col = 1
grid2.Row = counter%
grid2.Text = t(0) "Load Emp ID
grid2.Col = 2
grid2.Row = counter%
grid2.Text = t(1) "Load Emp Name
grid2.Col = 3
grid2.Row = counter%
grid2.Text = t(2) "Load Emp Addr
grid2.Col = 4
grid2.Row = counter%
grid2.Text = t(3) "Load Emp SSN
counter% = counter% + 1
t.MoveNext
Loop
t.Close
db.Close
End Sub
9.Tu the Run menu, em chon Start (ALT, R, S), hoac nhan phim F5 to run chuong trinh nay. Dau tien em nhan vao nut the Command1. Sau do nhan vao nut the Command2 button, va roi nhan vao nut the Command3 button de so sanh cac ket qua. Chuc em vui ve!

Phucusa

Việt Báo

TIN Công Nghệ NỔI BẬT

Bản cập nhật Windows Phone 8.1 sẽ có những thay đổi lớn

Người dùng Windows Phone có thể sẽ được đón nhận những thay đổi lớn trong bản cập nhật Windows Phone 8.1 tới đây. Tính năng tiết kiệm pin Battery Saver sẽ được nhà phát triển tích hợp thêm khả năng hiển thị “Live Tiles” thời gian thực, với tính năng này, khả năng quản lý pin trên thiết bị của người dùng chắc chắn sẽ tốt hơn rất nhiều.

Năm 2014, người Việt tìm giá vàng, iPhone nhiều nhất

Google vừa công bố danh sách từ khóa và xu hướng tìm kiếm nhiều nhất năm 2014, trong đó có Việt Nam. Các từ khóa "giá vàng", "iPhone", "Doraemon", "Phương Mỹ Chi" vẫn giữ vị trí vững chắc trong bảng xếp hạng.

Facebook sẽ có thêm nút “ dislike”

Ngày 11/12 vừa qua, nhà sáng lập Facebook trẻ tuổi Mark Zuckerberg cho biết rằng Facebook đang suy nghĩ về việc thêm một nút "ghét" (dislike) cho mạng xã hội lớn nhất hành tinh. Đây có lẽ là một tin không hề vui cho những tính đồ "tự sướng"

Nhận xét tin Cách nhập dữ liệu từ VB vào Access (1)

Ý kiến bạn đọc

Viết phản hồi

Bạn có thể gửi nhận xét, góp ý hay liên hệ về bài viết Cách nhập dữ liệu từ VB vào Access (1) bằng cách gửi thư điện tử tới Lien He Bao Viet Nam. Xin bao gồm tên bài viết Cach nhap du lieu tu VB vao Access 1 ở dạng tiếng Việt không dấu. Hoặc Cách nhập dữ liệu từ VB vào Access (1) ở dạng có dấu. Bài viết trong chuyên đề Kinh Nghiệm của chuyên mục Công Nghệ.

How to import data from Access VB (1)
As New, For Emp, Line Input, End Sub, Const DB, As String, data entry, 1, Trim, The, dim, de

I want programming in VB to import data to a table in Access. Specifically I have a form that contains a textbox to enter data, for all his expenses for guidance on how to put data in the textbox into a table in Access by ...

CÓ THỂ BẠN QUAN TÂM
Xem tiếp: Công Nghệ


  • Thoi su 24h1712 Xe o to roi vuc sau 5 quan nhan tu vong
    Thời sự 24h(17/12): Xe ô tô rơi vực sâu, 5 quân nhân tử vong

    Khoan hầm giải cứu 12 công nhân mắc kẹt; Xe ô tô rơi vực sâu, 5 quân nhân tử vong; Mở hộp đen tìm nguyên nhân máy bay hạ cánh khẩn cấp;Sa Pa rét 2 độ, có thể xuất hiện băng giá; Kho tiền 6 tấn của tay chơi Bắc Ninh... là những thông tin thời sự nổi bật trong ngày 17/12.

  • Thoi su 24h1612 3 tai nan kinh hoang
    Thời sự 24h(16/12): 3 tai nạn kinh hoàng

    Sập hầm thủy điện, 11 người mắc kẹt; Tai nạn kinh hoàng ở Móng Cái, 6 người chết; Phó chủ tịch bị tố đánh dân giữa chợ; Đắm thuyền ở Thái Bình, 6 người chết; Bán sắt vụn chiếc máy bay bỏ quên 7 năm ở Nội Bài... là những thông tin thời sự nổi bật trong ngày 16/12.

  • Thoi su 24h1512 5 thuyen vien mat tich tren bien
    Thời sự 24h(15/12): 5 thuyền viên mất tích trên biển

    Xuất hiện "nhân vật mới" tại phiên xử siêu lừa Huyền Như; Bầu Kiên bị tuyên 30 năm tù; 1.000 xe TQ muốn vào du lịch, Bộ Quốc phòng không đồng tình; Miền Bắc chuẩn bị rét dưới 10 độ; 5 thuyền viên mất tích trên biển; Hé lộ "hợp đồng nô lệ" trong showbiz Việt... là những thông tin thời sự nổi bật trong ngày 15/12.

  • Thoi su tuan qua Bau Kien bat khoc tai toa
    Thời sự tuần qua: Bầu Kiên bật khóc tại tòa

    Ông Hoàng Văn Nghiên xin trả biệt thự; Một đại gia bị tạt axít khi đang ăn sáng;Lần đầu tiên bầu Kiên bật khóc trước tòa; Vụ Hồ Duy Hải: Tang vật được mua... ngoài chợ?; Cha của bé 2 tuổi bị bỏ rơi trên taxi đã xuất hiện?..

  • Thoi su 24h1312 Bo Y te chi cach tri ran luc
    Thời sự 24h(13/12): Bộ Y tế chỉ cách trị rắn lục

    Thủ tướng phát lệnh khởi công cơ sở 2 BV Bạch Mai, Việt Đức; Bộ Y tế "mách nước" trị rắn lục đuôi đỏ; Thu hồi giấy phép ấn phẩm Dòng đời; ... là những thông tin thời sự đáng chú ý ngày 13/12. 

  • Be trai bi bo roi tren taxi
    Bé trai bị bỏ rơi trên taxi

    Liên quan đến vụ bé trai 2 tuổi bị bỏ rơi trên taxi, người cha xuất hiện và nêu lý do bé Bo bị "lạc" bố mẹ trong đêm.

  • Thuong tet 2015
    Thưởng tết 2015

    Về mức thưởng Tết năm 2015, tôi dự đoán do điều kiện khó khăn sẽ có nhiều doanh nghiệp có mức thưởng khiêm tốn.

  • Xoay quanh viec Hoa hau Nguyen Cao Ky Duyen dang quang
    Xoay quanh việc Hoa hậu Nguyễn Cao Kỳ Duyên đăng quang

    Không chỉ là sinh viên ĐH Ngoại thương, tân hoa hậu Việt Nam 2014 Nguyễn Cao Kỳ Duyên còn từng tốt nghiệp loại giỏi tại một trường THPT nổi tiếng nhất nhì cả nước.

  • Toi pham giang ho noi am anh nguoi dan
    Tội phạm giang hồ - nỗi ám ảnh người dân

    Nhắc đến cái tên Đức “Cổ Lễ”, giới giang hồ trong Nam, ngoài Bắc có lẽ đều biết tiếng. Gã đẹp trai nhưng cũng nóng tính nên sẵn sàng đâm chém kẻ khác dù bất cứ lí do gì.

  • Lich nghi Tet At Mui 2015
    Lịch nghỉ Tết Ất Mùi 2015

    Chính phủ đồng ý phương án nghỉ 9 ngày với Tết Nguyên đán, 4 ngày với Tết Dương lịch, 6 ngày dịp lễ Giỗ tổ và 30/4, 1/5.

  • Toan canh kinh te tuan 712 13122014
    Toàn cảnh kinh tế tuần (7/12 - 13/12/2014)

    Theo khảo sát các Doanh nghiệp, khả năng thưởng Tết Nguyên đán 2015 sẽ vẫn giữ nguyên như năm 2014, và theo báo cáo Tiền lương Toàn cầu tiền lương ở Việt Nam thuộc mức thấp trong khu vực, Vinalines đã chuyển một phần số nợ thành vốn góp của Vietinbank, hơn 99% hộ gia đình tại Hà Nội đã có sổ đỏ, cùng với những thông tin cảnh báo tiêu dùng là những tin tức - sự kiện kinh tế nổi bật trong tuần vừa qua.

  • Ban tin suc khoe tuan tu 71312
    Bản tin sức khỏe tuần (từ 7-13/12)

    Bộ Y tế ban hành phác đồ điều trị rắn lục đuôi đỏ cắn; Đề kháng kháng sinh - Bao giờ có thuốc chữa?; Đâu là nguyên nhân vô sinh ngày càng tăng?; Tác hại và cách nhận biết rau muống nhiễm chì; Thông tin gây sốc về thủ dâm nữ; Con thông minh nhờ mẹ ốm nghén; 3 động tác cho dân văn phòng có chân thon, khỏe; Những cách kiểm tra sức khỏe thú vị nên thử; Loại rau quý chống ung thư kỳ diệu có nhiều ở Việt Nam... là những tin sức khỏe nổi bật tuần qua.

  • Nghin le chuyen tuan qua 0712 1312
    Nghìn lẻ chuyện tuần qua (07/12 - 13/12)

    Gia cảnh đáng thương của thuyền viên bị cướp biển bắn chết; Tái bổ nhiệm giám đốc... sắp về hưu; Bé trai bị quên trên taxi: Người cha xuất hiện; Ồ ạt xây dựng tượng đài; Ông Hoàng Văn Nghiên viết thư xin trả biệt thự ... là những tin tức nổi bật được dư luận quan tâm trong tuần qua.

  • Toan canh Showbiz tuan 0712 1312
    Toàn cảnh Showbiz tuần (07/12 – 13/12)

    Nguyễn Cao Kỳ Duyên đăng quang Hoa hậu Việt Nam 2014, Á hậu Huyền My lộ ảnh mặc nội y diễn bar, Đàm Vĩnh Hưng là nghệ sỹ thu nhiều quảng cáo nhất 2014, Thủy Tiên - Công Vinh chính thức kết hôn ngày 27/12, Mỹ Tâm bất ngờ rút khỏi Làn sóng xanh 2014, Kate Hudson hủy hôn, Henry Cavill bất ngờ chia tay bạn gái, Những sự kiện gây chấn động nền âm nhạc Hàn Quốc năm 2014,... là những thông tin giải trí nổi bật trong tuần.

  • Tin An ninh Phap luat tuan qua 0712 1312
    Tin An ninh - Pháp luật tuần qua (07/12 - 13/12)

    Hồ Duy Hải và kỳ án Bưu điện Cầu Voi; Ly kỳ chuyện 'người chết' ra tòa, lãnh án; Đốt người thân: Những vụ án kinh hoàng; Những em bé bị người thân ruột thịt bạo hành gây chấn động; Thi thể nữ chủ nhân và ấm trà tố cáo tội ác; Khát vọng hoàn lương của “ông trùm” gieo rắc “cái chết trắng”;.......là những tin đáng chú ý trong tuần.