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

Video được xem nhiều nhất

7 quái vật "kinh khủng" từng bị bắt gặp tại Mỹ
00:00 / --:--

Video nổi bật

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

Để thiết bị Android an toàn đối với trẻ nhỏ

Bạn hoàn toàn có thể cho trẻ sử dụng điện thoại hoặc máy tính bảng Android mà không lo chúng nghịch, tải/cài đặt các ứng dụng không mong muốn, thực hiện cuộc gọi … chỉ với vài thiết lập cơ bản dưới đây.

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 24h278 Bat GD la chong cua mot a hau
    Thời sự 24h(27/8): Bắt GĐ là chồng của một á hậu

    Lương tối thiểu Việt Nam quá cao?; Bắt giám đốc là chồng một Á hậu chiếm đoạt 300 tỉ đồng; Chân dung Hoa hậu có gia thế hoành tráng nhất Việt Nam; Thông tin bất ngờ về tài xế taxi gây náo loạn phố HN

  • Thoi su 24h268 Them vu ca nha bi truy sat o Gia Lai
    Thời sự 24h(26/8): Thêm vụ cả nhà bị truy sát ở Gia Lai

     Tàu đâm ôtô, lái xe văng xuống cống tử vong; Ông Đặng Thành Tâm đối mặt với tin đồn bị bắt; Một nửa ít biết của MC Thanh Tùng, Thụy Vân; Bé gái bị mẹ tẩm xăng đốt vì thiếu nợ tiền vé số; 

  • Thoi su 24h258 Sat cong trinh duong sat tren cao roi trung o to
    Thời sự 24h(25/8): Sắt công trình đường sắt trên cao rơi trúng ô tô

     Dân khóc ròng vì 1.600 cây sưa đỏ bị chặt trộm; Thanh sắt công trình đường sắt trên cao rơi trúng ô tô; Ảnh bất ngờ của MC Long Vũ, Anh Tuấn; Xác định được lái xe Audi gây tai nạn trên cao tốc; 

  • Thoi su 24h248 Ca gia dinh tu lam dam tang cho minh
    Thời sự 24h(24/8): Cả gia đình tự làm đám tang cho... mình

     Bộ GTVT lên tiếng vụ xây cầu treo phục vụ chủ tịch xã; Lạ: Đang sống, cả nhà tự làm đám tang cho mình; Siêu xe 15 tỷ "nát đầu" sau khi đâm dải phân cách; Tài sản kếch xù của đại gia vừa đột tử ở HN; 

  • Thoi su tuan qua Tham an chem chet 4 nguoi o Gia Lai
    Thời sự tuần qua: Thảm án chém chết 4 người ở Gia Lai

    Bộ trưởng nhận trách nhiệm về bất cập trong xét tuyển ĐH; Ông Đoàn Văn Vươn được đề nghị đặc xá năm 2015; Xuất hiện dòng suối 'máu' bất thường ở Điện Biên; MC Thảo Vân bị tổn thương nặng nề trên máy bay; Giết vợ rồi đi cả ngàn km về quê chém chết tình địch; Xe máy chứa hơn một tỷ đồng bỏ lại bên lề đường...là những thông tin thời sự nổi bật tuần qua.

  • Xe may vo chu chua 1 6 ty dong
    Xe máy 'vô chủ' chứa 1,6 tỷ đồng

    Công an huyện Hương Sơn cho biết, mặc dù đã xác định được chủ đăng ký của chiếc xe máy có 1,6 tỉ đồng bỏ lại bên đường là ai. Tuy nhiên chủ chiếc xe cho biết đã chuyển chiếc xe lại cho chồng, người chồng đang thụ án tù về tội..

  • Be gai bi me tuoi xang thieu song
    Bé gái bị mẹ tưới xăng thiêu sống

    Chỉ vì bán không hết vé số, bé Nguyễn Thị Kim L. ( 13 tuổi ) bị mẹ ruột tưới xăng. Trong lúc bị phỏng nặng, cháu bé đã lao tới ôm lấy mẹ để cầu cứu.

  • Nghi van ban trai bi mat cua HH Ky Duyen
    Nghi vấn "bạn trai bí mật" của HH Kỳ Duyên

    Kỳ Duyên đã lên tiếng khi thông tin "bạn trai bí mật" bất ngờ được hé lộ.

  • Nhung vu canh sat giao thong bat cuop
    Những vụ cảnh sát giao thông bắt cướp

    Đã có rất nhiều trường hợp vận chuyển ma túy, đối tượng truy nã bị bắt giữ ngay trên đường di chuyển và dĩ nhiên ở góc độ này, Cảnh sát giao thông chính là những người đấu tranh trực tiếp với những kẻ phạm tội

  • Bangkok rung chuyen vi danh bom
    Bangkok rung chuyển vì đánh bom

    19 giờ tối 17/8, một quả bom được cài ngay bên trong khuôn viên ngôi đền Hindu giáo ở trung tâm thủ đô Bangkok của Thái Lan đã phát nổ, gây ra một cảnh tượng tang hoang, hỗn loạn. Chưa có tổ chức nào nhận trách nhiệm gây ra vụ..

  • Nghin le chuyen tuan qua 2308 2908
    Nghìn lẻ chuyện tuần qua (23/08 - 29/08)

    Lịch cấm đường tại Hà Nội để phục vụ Quốc Khánh 2/9; Bữa ăn 5.000 đồng của bệnh nhân tâm thần; Taxi điên gây náo loạn phố Hà Nội; Bé gái bị mẹ tưới xăng thiêu sống; Chuyện lạ về 40 chiếc ví rơi ở Đà Nẵng, Hội An; Người Việt đang đầu độc cả trí óc con trẻ...là những tin tức nổi bật được dư luận quan tâm trong tuần qua. ------------ Xem thêm: Nghìn lẻ chuyện tuần qua (23/08 - 29/08), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-2308-2908/2147593370/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Toan canh kinh te tuan 2308 29082015
    Toàn cảnh kinh tế tuần 23/08 - 29/08/2015

    Theo Cục Điều tiết điện lực, giá mua điện của EVN hiện là 1087,3 đ/kWh nhưng giá điện mà EVN bán ra thị trường tới 1.622,05 đồng/kW/h và từ năm 2016 thị trường bán buôn cạnh tranh sẽ chính thức vận hành nhưng mới chỉ là vận hành trên giấy; ngày 24/8 NHNN phát đi thông điệp khẳng định sẽ không tiến hành điều chỉnh tỉ giá nữa và sẽ áp dụng các biện pháp để ổn định tỉ giá cuối năm 2015 và đầu 2016; ------------ Xem thêm: Toàn cảnh kinh tế tuần 23/08 - 29/08/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-2308-29082015/2147593361/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Tin An ninh Phap luat tuan qua 2308 2908
    Tin An ninh - Pháp luật tuần qua (23/08 - 29/08)

    Xe máy 'vô chủ' chứa 1,6 tỷ đồng; Rùng mình với những quái chiêu đòi nợ 'vô tiền khoáng hậu'; Trộm cắp tài sản dịp nghỉ Lễ: Giúp bạn đề phòng; Đại gia mua dâm trẻ em ở miền Tây được tại ngoại; Phạm nhân hồi hộp chờ ngày đặc xá; Số phận đau thương của bé gái bị mẹ dùng xăng đốt;.....là những tin đáng chú ý trong tuần. ------------ Xem thêm: Tin An ninh - Pháp luật tuần qua (23/08 - 29/08), http://vietbao.vn/An-ninh-Phap-luat/Tin-An-ninh-Phap-luat-tuan-qua-2308-2908/2147593334/218/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Diem lai tin Suc khoe quan trong tuan qua 2208 2908
    Điểm lại tin Sức khỏe quan trọng tuần qua (22/08 - 29/08)

    Việt Nam là điểm nóng của các bệnh truyền nhiễm mới nổi; Bé sơ sinh bị đâm xuyên sọ đã xuất viện; Thực hư thông tin xem điện thoại trong đêm bị ung thư mắt; Tiếp tục cảnh báo mối nguy về bệnh sốt xuất huyết; Những lưu ý không thể bỏ qua khi ăn bánh Trung thu; Cảnh báo lỗi của bố mẹ khiến con dậy thì sớm;... là những tin Sức khỏe quan trọng tuần qua. ------------ Xem thêm: Điểm lại tin Sức khỏe quan trọng tuần qua (22/08 - 29/08), http://vietbao.vn/Suc-khoe/Diem-lai-tin-Suc-khoe-quan-trong-tuan-qua-2208-2908/2147593388/248/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Su kien quoc te noi bat 238298
    Sự kiện quốc tế nổi bật (23/8-29-8)

    Hai miền Triều Tiên đạt thỏa thuận 6 điểm nhằm giảm căng thẳng; Mỹ điều 3 máy bay ném bom tàng hình hỗ trợ Hàn Quốc; MC truyền hình Mỹ bị bắn chết khi đang dẫn trực tiếp; Xả súng kinh hoàng ở miền Bắc nước Pháp làm 7 người thương vong... là những tin chính trong tuần qua. ------------ Xem thêm: Sự kiện quốc tế nổi bật (23/8-29-8), http://vietbao.vn/The-gioi/Su-kien-quoc-te-noi-bat-238298/2147593385/433/ Tin nhanh Việt Nam ra thế giới vietbao.vn