0-قەۋەت
2016-3-12 12:44:53 يوللىغان ۋاقتى
ئىككىنچى دەرىس vb.net دا ساندانغا ئۇلاش ئۇسۇلى
" ~' T9 [6 a" k/ d4 Q5 g, w6 Lئەسسالامۇ ئەلەيكۇم : J' d" W7 T' r' C2 \7 \
vb.net دا ئاددىي تېلېفون دەپتىرى ياساش ئۇسۇلى
( t$ }/ R5 b2 O, B( k; C7 D6 d6 ?
; _' k3 Z, e1 X
كىتىدىغان كونتروللار & m' i+ q% q1 d9 \+ C/ V, R
" L1 Y# e$ K! s: o2 K
DataGridView دىن بىر تال. T& H. B+ x/ K+ w- ]
TextBox دىن تۆت تال - ?! Q" J6 M" P: x/ z
Button تۆت تال 6 l7 F# G; D$ j( z; A5 c' n9 i, v) v0 w8 C
كۈرۈنمە يۇزىنى لاھىيلەپ بولغاندىن كېيىن كود يىزىشنى باشلايمىز ئاۋۋال Module دىن بىرنى ئەكىرىمىز ئەكىرىش ئۇسۇلى
# v9 P2 ?' f! w: X% @! f9 Y
1 F6 l2 K5 ?4 G- g
4 ^7 U( s0 D! D' |+ {3 Y5 T! S! C Module دىن بىرنى ئەكىرىپ بولغاندىن كېيىن Module نىڭ ئەڭ ئۇستىگە توۋەندىكى كودنى يىزىمىز رەسىمدىكىدەك . r" {: [7 a% ]
- Imports System.Data+ |& F9 X9 b* \8 k" F: _4 L
- Imports System.Data.OleDb
مەزمۇننى كۆچۈرۈۋېلىش ئاندىن Module نىڭ ئىچىگە سانداننى ئۇلاش كودىنى يىزىمىز ( T6 E2 D; u: K& \; C2 N j/ Y
بىرىنجى خىل ئۇلاش ئۇسۇلى C:\teLbook.accdb دىگەن ساندانغا ئۇلايدۇ- Dim sandan As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\teLbook.accdb"
مەزمۇننى كۆچۈرۈۋېلىش ئىككىنجى خىل ئۇسۇل ئىجرا بولماقچى بولغان exe ھۆججىتى با قىسقۇچ ئىچىدىكى ساندانغا ئۇلايدۇ- Dim sandan As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\teLbook.accdb"
مەزمۇننى كۆچۈرۈۋېلىش بىرىنجى فونكىسىيە0 K) \' y4 X2 K2 X. O
ساندان جەدىۋېلىنى DataGridView كۆرسۇتۇش فونكىسىيىسى (ئىزدەش ، ساندان جەدىۋىلىنى كۆرسۇتۇش)- Public Function qutcon(sql As String)
0 Q! x7 ?- a+ V# [- B# n - Dim con As New OleDbConnection
0 s7 Q: L3 N5 @ - Dim cmd As New OleDbCommand) o. T& I+ m. ?" C5 j
- Dim Adapter As New OleDbDataAdapter(sql, sandan)
$ ?/ {* \* y! E* g - Dim Table1 As New DataTable1 `# g+ p. I, t
- Adapter.Fill(Table1)7 U; ~0 E7 H, D- r3 m9 Z0 p. Z
- qutcon = Table1' R r! j6 C0 k2 ^
- End Function
مەزمۇننى كۆچۈرۈۋېلىش يۇقارقى كودنى Module نىڭ ئىچىگە يىزىپ ئاندىن Form1 نىڭ Form1_Load قىسمىغا توۋەندىكى كودنى يىزىمىز- DataGridView1.DataSource = qutcon(sql:="SELECT * FROM tel")
مەزمۇننى كۆچۈرۈۋېلىش DataGridView دا tel دىگەن جەدىۋەل كۈرۈنسۇن ، بىر تۇزگەن پروگىرامما ئىجرا بولغان ھامان tel دىگەن جەدىۋەل DataGridView دا كۈرۈندۇ
+ x) J, S K/ e$ _, Wئىككىنجى فونكىسىيە
% A+ i5 w, o* fئۇچۇر قۇشۇش ، ئۇچۇرۇش تەھرىرلاش ئۈچۈن ئىشلىتىمىز : o' S' i# X% n% k
Module نىڭ ئىچىگە توۋەندىكى كۆدنى يىزىڭ- Public Function qutinsert(sql As String)
9 ~6 h0 a" i" T8 P3 ^) x - Dim con As New OleDbConnection
& d( ?; k7 t$ F# K) R - Dim cmd As New OleDbCommand(sql, con)( [: B1 e* ~; l9 B- b$ a
- con.ConnectionString = sandan
9 M8 i1 S+ U0 G% q( Y2 R - con.Open()8 V: D7 |8 H; d) { D5 _' a9 ?
- cmd.CommandText = sql. G: g. u" `, o! p
- cmd.ExecuteNonQuery()
6 m1 Z! n) R9 Q - qutinsert = cmd
# S+ k7 ?; n& p - cmd.Dispose()
0 P/ Q" m, I' S, l9 D( x7 l - con.Close()
مەزمۇننى كۆچۈرۈۋېلىش ئەمدى Form1 دىكى ئۇچۇر قۇشۇش دىگەن كونوپكىغا يەنى Button غا توۋەندىكى كودنى يىزىمىز رەسىمدىكىدەك
; A! t9 w+ @- ^" I) d7 N
- qutinsert(sql:="INSERT INTO tel (名字, 电话,地址) VALUES ('" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')")
مەزمۇننى كۆچۈرۈۋېلىش tel دىگەن جەدىۋەلدىكى 名字, 电话,地址 دىگەن سىتونىغا TextBox2.Text ، TextBox3.Text ، TextBox4.Text دىكى ئۇچۇر قۇشۇلسۇن دىگەن مەنىدە بىرىنجى دەرىستە INSERT نى ئۇچۇر قۇشۇش ئۈچۈن ئىشلىتىدۇ دەپ ئۆتكەن
% Y! s" Y) ~, c$ d T% i0 i0 x/ z! \) [- I6 Q" G4 ]
ئۇچۇر تەھرىرلەش- qutinsert(sql:=" UPDATE tel SET 名字 = '" & TextBox2.Text & "' , 电话 = '" & TextBox3.Text & "' ,地址 = '" & TextBox4.Text & "' WHERE id = 3 ")
مەزمۇننى كۆچۈرۈۋېلىش 名字 ، 电话 ، 地址 دىگەن سىتوندىكى ئۈچۈرنى تەھرىرلەيدۇ UPDATE جۇملىسى ئۇچۇر تەھرىرلاش ئۈچۈن ئىشلىتىدۇ* T) E8 O/ g" |" A1 N5 R6 V
WHERE id = 3 بولسا 3 قۇردىكى ئۇچۇرنى تەھرىرلەشنى كۆرسىتىدۇ 2 h6 x& r) K* I: t1 b0 H
- _4 w6 q1 y, b2 d( P0 qئۇچۇرۇش جۇملىسى DELETE- qutinsert(sql:=" DELETE FROM tel WHERE id = 5 ")
مەزمۇننى كۆچۈرۈۋېلىش WHERE id = 5 بولسا 5 قۇردىكى ئۈچۈرنى ئۈچۈرۈشنى كۆرسىتىدۇ 4 C) j2 w7 T8 M$ c0 X$ L! o
! ]* b% y5 N4 A; y- iئىزدەش جۇملىسى LIKE- DataGridView1.DataSource = qutcon(sql:="SELECT * FROM tel WHERE 名字 LIKE '" & TextBox1.Text & "'")
مەزمۇننى كۆچۈرۈۋېلىش tel دىگەن جەدىۋلدىكى 名字 ئىسىم دىگەن سىتوندىكى ئۇچۇرنى ئىزدەشنى كۆرسىتىدۇ 5 Z. u- L+ }6 a P1 A- r
6 P) E2 U5 \0 [4 w# {. Y
ئەسلى كودنى بۇ يەردىن چۈشۈرۈڭ " D& x- b; s, b/ b' k0 p
مېھمان ئەگەر بۇ تېمىدىكى يوشۇرۇن مەزمۇننى كۆرمەكچى بولسىڭىز، ئىنكاس يېزىڭ
- L. |; p) |& {8 ~; L* w2 f9 H% Q7 s6 S/ F8 g) p" I
1 E( K5 w3 C* Z6 j' }3 p1 q# c Oئۇيغۇر تور بېكەتلىرىدە vb.net نى ساندانغا ئۇلاش توغۇرلۇق تۇزۇك بېرە تال تېما يوق ئىكەن شۇ سەۋەپتىن يوللاندى ! l; x4 t/ S0 U; D; t& n3 W
يۇقارقى كودنىڭ ھەممىسىنى ئۇزەم بىر قوللۇق يازغان باشقا تور بېكەتلەرنىڭ ئۆز نامىدا كۈچۈرۈپ چىقارماسلىقىنى ئۇمىد قىلىمەن بۇ تېما پەقەت قۇتيار ۋە نۇرقۇت قىلا يوللىنىدۇ * _9 S/ e7 U( b- V2 w
* @- R2 y8 B1 Pچۇشەنمىگەن ياكى خاتا كەتكەن جايلار بولسا سۆرىشىڭلارنى ياكى تۇزۇتۇپ قۇيىشىڭلارنى ئۇمىد قىلىمەن
" |2 }* @: l* U; k5 r; n
0 ~0 u- _& J. @داۋاملىق مۇشۇنداق تېما يوللاپ تۇرسۇن دىسەڭلار مۇكاپاتنى ئايىمىغايسىلەر
/ U% r& M3 I- H0 A2 H1 B w6 S- U! A1 l4 c* r E
|
-
ھەممە باھا نومۇرى : شۆھرەت + 10
تەجرىبە + 15
تەڭگە + 10
باھا خاتىرىسى
|
- تىزىملاتقان
- 2012-12-4
- ئاخىرقى قېتىم
- 2017-6-23
- ھوقۇقى
- 12
- جۇغلانما
- 2922
- يازما
- 189
- نادىر
- 1
شەرەپلىك ئەزا

![[ تەجرىبە 4 _ دەرىجە ] ≥ 1600](source/plugin/qz_mmm/images/0/fenzuan4.gif) ![[ شۆھرەت 1 _ دەرىجە ] ≥ 180](source/plugin/qz_mmm/images/0/heizuan1.gif) ![[ تېخى يورۇمىدى: نادىر تېما ] تەلىپى: 5](source/plugin/qz_mmm/images/0/huizuan.gif) ![[ تەڭگە 1 _ دەرىجە ] ≥ 100](source/plugin/qz_mmm/images/0/huangzuan1.gif) ![[ تېخى يورۇمىدى: تېما سانى ] تەلىپى: 50](source/plugin/qz_mmm/images/0/huizuan.gif) ![[ توردىكى ۋاقت 2 _ دەرىجە ] ≥ 144](source/plugin/qz_mmm/images/0/lvzuan2.gif) [؟]
تەجرىبە- 1924
شۆھرەت- 342
تەڭگە- 120
|