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

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


  • Thoi su trong ngay Danh ghen tren may bay
    Thời sự trong ngày: Đánh ghen trên máy bay

    Bến Tre, TPHCM thu hồi đất, dỡ nhà ông Trần Văn Truyền; Bộ trưởng Thăng: Sự cố mất điện có phải phá hoại?; SGK tiếng Anh: "Làm ầm ĩ là...không biết gì"; "Hố tử thần" sụt lún trở lại; "2 bà, 1 ông" đánh nhau trên máy bay...

  • Thoi su 24h2111 Thu hoi nha dat cua ong Tran Van Truyen
    Thời sự 24h(21/11): Thu hồi nhà đất của ông Trần Văn Truyền

    Thu hồi nhà, đất của ông Trần Văn Truyền; Gói quà 20/11 phát nổ, 1 phụ nữ tử vong; VTV xin lỗi vụ phát sóng "Nhặt xương cho thầy"; Hà Hồ bật khóc, nêu lời giải cho quan hệ với Cường đô la; Từ 1/1/2015 tăng mức phạt xe quá tải... là những thông tin thời sự nổi bật trong ngày 21/11.

  • Thoi su 24h2010 2 may bay suyt dam nhau tai SG
    Thời sự 24h(20/10): 2 máy bay suýt đâm nhau tại SG

    Đổi chứng minh thư thành thẻ căn cước công dân;Hai máy bay suýt đụng nhau trên không;Thuê người giả mạo Thứ trưởng Y tế để lừa tiền tỷ; Sát hại con tin để quỵt nợ 50 triệu đồng; "100 nghìn/cô" - cuộc định giá đau xót trong ngày 20/11?... là những thông tin thời sự nổi bật trong ngày 20/11.

  • Thoi su 24h1911 Chang trai dam cuoi co tich qua doi
    Thời sự 24h(19/11): Chàng trai "đám cưới cổ tích" qua đời

    Phạt 252 triệu đồng NXB in hình Công Lý cởi trần; Chơi ngông Tàng "Keangnam": Mời ca sỹ ngoại về đãi cả bản; Nữ phượt thủ 9x tử nạn trên cung đường Hà Giang; Chàng trai trong "đám cưới cố tích" đột ngột qua đời...

  • Thoi su 24h1811 BS quen kim mo trong bung benh nhan
    Thời sự 24h(18/11): BS quên kim mổ trong bụng bệnh nhân

    Đường sắt trên cao "tuyệt đối an toàn"; Mổ đẻ, BS ‘quên’ kim trong bụng bệnh nhân 9 năm; Bé sơ sinh văng khỏi bụng mẹ ra viện; Lật mặt hàng chục cửa hàng xăng dầu lắp đặt IC giả; Mạo nhận con trai Bí thư HN "quỵt" hàng trăm triệu... là những thông tin thời sự nổi bật trong ngày 18/11.

  • Ban tin suc khoe tuan tu 162211
    Bản tin sức khỏe tuần (từ 16-22/11)

    Hà Tĩnh: Mổ đẻ, BS "quên" kim trong bụng bệnh nhân 9 năm; Bình Dương: Một phụ nữ chết tức tưởi sau khi chích thuốc tại phòng khám tư nhân; Trứng gà thật - giả, phân biệt thế nào?; 83% đàn ông "thả rông" trong lần quan hệ đầu tiên; Mẹo chăm sóc da cho trẻ vào mùa đông; Lý do không ngờ khiến mẹ chậm mang thai; Người hay lo lắng dễ bị mất trí nhớ; Cách giảm cân hiệu quả trong 1 tuần... là những tin sức khỏe nổi bật tuần qua.

  • Nghin le chuyen tuan qua 1611 2211
    Nghìn lẻ chuyện tuần qua (16/11 - 22/11)

    Nghị trường QH nóng chuyện chạy chức, chạy quyền; Ước vọng của Hai lúa được phong Đại tướng quân; Sách Luật in hình nghệ sỹ Công Lý: Luật pháp không phải trò hề; Làm khu nghỉ dưỡng trên núi Hải Vân: Quá nhạy cảm quốc phòng!; Phát phim phản cảm,VTV nên có lời với các thầy cô giáo ... 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 1611 2211
    Toàn cảnh Showbiz tuần (16/11 – 22/11)

    Mỹ Tâm được vinh danh giải thưởng 'Huyền thoại âm nhạc', Hình nghệ sĩ Công Lý bị xuất hiện phản cảm trên bìa sách luật, Tranh cãi số lượng khán giả trong live concert Heartbeat của Mỹ Tâm,

  • Tin An ninh Phap luat tuan qua 1611 2211
    Tin An ninh - Pháp luật tuần qua (16/11 - 22/11)

    "Tội phạm axit" và câu chuyện về quản lý; Kết cục thảm của những mối tình đồng tính nữ lệch lạc; Điểm tựa hoàn lương của 9X sát hại người yêu; 14 năm tù cho cơn ghen tuông mù quáng; Vụ TMV Cát Tường: Tội danh của bị cáo Tường và Khánh sẽ thay đổi?; Cảnh giác với chiêu lừa đảo tinh vi qua điện thoại;.......là những tin đáng chú ý trong tuần.

  • Tin Bong daThe thao noi bat tuan qua 16112211
    Tin Bóng đá-Thể thao nổi bật tuần qua (16/11-22/11)

    Tổng hợp diễn biến vụ nghi ngờ Công Phượng gian lận tuổi; Tổng hợp thông tin trước thềm AFF Cup của ĐT Việt Nam và các đội bóng cùng bảng; Tổng hợp các trận cầu hay cuối tuần... là những tin tức sẽ có trong bản tin Bóng đá cuối tuần của Việt Báo.