قۇتيار مۇنبىرى

ئىزدەش
ئىم قايتۇرۇۋېلىش  خەتلىتىڭ

[دەرسلىك] vb.net دا ساندانغا ئۇلاش 2 دەرىس   [ئۇلانما كۆچۈرۈش]

  • كۆرۈش4286
  • ئىنكاس24
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 ? QQ拼音截图未命名.png ; _' k3 Z, e1 X
كىتىدىغان  كونتروللار   & m' i+ q% q1 d9 \+ C/ V, R
捕获.PNG " 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 QQ截图20160312115700.png 1 F6 l2 K5 ?4 G- g
QQ截图20160312115742.png
4 ^7 U( s0 D! D' |+ {3 Y5 T! S! C Module دىن  بىرنى ئەكىرىپ بولغاندىن كېيىن  Module  نىڭ ئەڭ  ئۇستىگە  توۋەندىكى  كودنى  يىزىمىز   رەسىمدىكىدەك  . r" {: [7 a% ]
捕获11.PNG
  1. Imports System.Data+ |& F9 X9 b* \8 k" F: _4 L
  2. Imports System.Data.OleDb
مەزمۇننى كۆچۈرۈۋېلىش
ئاندىن   Module  نىڭ  ئىچىگە   سانداننى ئۇلاش  كودىنى  يىزىمىز  ( T6 E2 D; u: K& \; C2 N  j/ Y
بىرىنجى  خىل ئۇلاش ئۇسۇلى  C:\teLbook.accdb دىگەن   ساندانغا  ئۇلايدۇ
  1.   Dim sandan As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\teLbook.accdb"
مەزمۇننى كۆچۈرۈۋېلىش
ئىككىنجى  خىل  ئۇسۇل   ئىجرا  بولماقچى  بولغان  exe  ھۆججىتى   با قىسقۇچ  ئىچىدىكى  ساندانغا  ئۇلايدۇ
  1.     Dim sandan As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\teLbook.accdb"
مەزمۇننى كۆچۈرۈۋېلىش
بىرىنجى  فونكىسىيە0 K) \' y4 X2 K2 X. O
ساندان جەدىۋېلىنى  DataGridView كۆرسۇتۇش فونكىسىيىسى    (ئىزدەش ، ساندان جەدىۋىلىنى كۆرسۇتۇش)
  1.     Public Function qutcon(sql As String)
    0 Q! x7 ?- a+ V# [- B# n
  2.         Dim con As New OleDbConnection
    0 s7 Q: L3 N5 @
  3.         Dim cmd As New OleDbCommand) o. T& I+ m. ?" C5 j
  4.         Dim Adapter As New OleDbDataAdapter(sql, sandan)
    $ ?/ {* \* y! E* g
  5.         Dim Table1 As New DataTable1 `# g+ p. I, t
  6.         Adapter.Fill(Table1)7 U; ~0 E7 H, D- r3 m9 Z0 p. Z
  7.         qutcon = Table1' R  r! j6 C0 k2 ^
  8.     End Function
مەزمۇننى كۆچۈرۈۋېلىش
يۇقارقى  كودنى Module نىڭ  ئىچىگە  يىزىپ   ئاندىن  Form1 نىڭ  Form1_Load قىسمىغا   توۋەندىكى كودنى يىزىمىز
  1.    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 نىڭ  ئىچىگە توۋەندىكى كۆدنى  يىزىڭ
  1.     Public Function qutinsert(sql As String)
    9 ~6 h0 a" i" T8 P3 ^) x
  2.         Dim con As New OleDbConnection
    & d( ?; k7 t$ F# K) R
  3.         Dim cmd As New OleDbCommand(sql, con)( [: B1 e* ~; l9 B- b$ a
  4.         con.ConnectionString = sandan
    9 M8 i1 S+ U0 G% q( Y2 R
  5.         con.Open()8 V: D7 |8 H; d) {  D5 _' a9 ?
  6.         cmd.CommandText = sql. G: g. u" `, o! p
  7.         cmd.ExecuteNonQuery()
    6 m1 Z! n) R9 Q
  8.         qutinsert = cmd
    # S+ k7 ?; n& p
  9.         cmd.Dispose()
    0 P/ Q" m, I' S, l9 D( x7 l
  10.         con.Close()
مەزمۇننى كۆچۈرۈۋېلىش
ئەمدى  Form1 دىكى   ئۇچۇر قۇشۇش  دىگەن  كونوپكىغا  يەنى  Button  غا  توۋەندىكى كودنى  يىزىمىز  رەسىمدىكىدەك
; A! t9 w+ @- ^" I) d7 N 捕获sdadas.PNG
  1.         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 ]
ئۇچۇر تەھرىرلەش
  1.         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
  1.      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
  1.         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
ھازىرغىچە 2 ئادەم باھالىدىشۆھرەت تەجرىبە تەڭگە يىغىش سەۋەبى
mamataili110 ‎+5 تىما دىگەن مۇنداق بول.
Kulke ‎+10 ‎+10 ‎+10 ئېسىل!!!

ھەممە باھا نومۇرى : ‎شۆھرەت + 10  ‎تەجرىبە + 15  ‎تەڭگە + 10   باھا خاتىرىسى

شەرەپلىك ئەزا

Rank:8

[؟]

تەجرىبە
1924
شۆھرەت
342
تەڭگە
120

شەرەپلىك ئەزا قىزغىن ئەزا VIP ئەزا

1-قەۋەت
‎2016-3-12 15:27:01 يوللىغان ۋاقتى
بۇ يازمىنى ئاخىرىدا   sawrqan تەھرىرلىگەن. ۋاقتى  2016-3-12 15:28  ! u. H. `! `3 Z" D* N2 s
+ O% ]# M% k1 H* I) S3 Q- c
مەنمۇ قىززىقىق بىر چاغلاردا ئۈگىنەي دەپ شۇنچە قىلساممۇ تەلىم بەرگۈدەك بىرەر ئادەم يوق تاشلاپ قويغانتىم     
9 q) G6 ^9 N% e/ s6 h8 Q9 j2 F. Q6 Sكودلىرى بەك مۇرەككەپ ئىكەن

تۇدۇن

Rank:2

[؟]

تەجرىبە
373
شۆھرەت
72
تەڭگە
0
2-قەۋەت
‎2016-3-12 16:00:47 يوللىغان ۋاقتى
sawrqan يوللىغان ۋاقتى  2016-3-12 15:27 : c1 W# Q0 B* q6 m& `# P
مەنمۇ قىززىقىق بىر چاغلاردا ئۈگىنەي دەپ شۇنچە قىلسامم ...

, C' k% H- n& w( a: |- qمۇشۇ مۇرەككەپما  مەن تېخى فونكىسىيە لەشتۇرۇپ  قولايلىق قىلىقپ قويغان تۇرسام

شەرەپلىك ئەزا

Rank:8

[؟]

تەجرىبە
1924
شۆھرەت
342
تەڭگە
120

شەرەپلىك ئەزا قىزغىن ئەزا VIP ئەزا

3-قەۋەت
‎2016-3-12 16:15:38 يوللىغان ۋاقتى
sawrqan يوللىغان ۋاقتى  2016-3-12 15:27 8 h3 v9 k' ]- }+ S' {1 G# k
مەنمۇ قىززىقىق بىر چاغلاردا ئۈگىنەي دەپ شۇنچە قىلسامم ...

4 O' k! f3 J- {" J4 Xكودى ئاسان بولسا ھەممە ئادەم ئۆگىنىپ كېتەلەيتتى. كودقا قاراپلا تەس دېسىڭىز پروگرامما ئۆگىنەلمەيسىز شۇ

بېكەت باشلىقى

بېكەت مەسئۇلى

Rank:10

[؟]

تەجرىبە
25082
شۆھرەت
20956
تەڭگە
3090

مۇنبەر باشلىقى

«ئۇ» ئادەم ئىشلىتىپ كۆنۈپ قالغان، «بىز» ئۆزىمىز ئىشلەپ كۆنگەن، پەرقى بار.
5-قەۋەت
‎2016-3-13 05:18:28 يوللىغان ۋاقتى
بۇنىمۇ چالا قويماي ئارىلاپ باقىلى

تارقان

Rank:3

[؟]

تەجرىبە
742
شۆھرەت
240
تەڭگە
20
6-قەۋەت
‎2016-3-13 12:24:29 يوللىغان ۋاقتى
بەك ياخشى ئىش قىپسىز، بولسا سۈرەتلىك دەرسلىكىنى ئىشلەپ قويغان بولسىڭىز ھەقلىق بولسىمۇ مەيلى ئىدى، ئاخىرىغا  ئىنتىزارمەن

سانغۇن

Rank:2

[؟]

تەجرىبە
57
شۆھرەت
24
تەڭگە
0
7-قەۋەت
‎2016-3-13 16:29:08 يوللىغان ۋاقتى
بولسا دەرسىلىك بولسا بولاتتى مەنمۇ ئۈگىنەتتىم شۇ بولمىسا بەزى كۈنلىرى خىلى بىكار بولۇپ قالىمەن شۇ

تۇدۇن

Rank:2

[؟]

تەجرىبە
373
شۆھرەت
72
تەڭگە
0
8-قەۋەت
‎2016-3-14 21:24:26 يوللىغان ۋاقتى
بولسا سۈرەتلىك دەرسلىك ئىشلەڭە ھەقلىق سىتىۋالىمەن

سانغۇن

Rank:2

[؟]

تەجرىبە
57
شۆھرەت
24
تەڭگە
0
9-قەۋەت
‎2016-3-17 14:53:48 يوللىغان ۋاقتى
رەھمەت، مەنمۇ ياساپ سىناپ باقاي

لەشكەر

Rank:1

[؟]

تەجرىبە
25
شۆھرەت
3
تەڭگە
0
10-قەۋەت
‎2016-3-17 18:36:42 يوللىغان ۋاقتى
مەن ئىجرا قىلسام tabel1 دە خاتالىق كۆرۈلۈپ ئىجرا بولمىدى، سىز يوللىغاننى ئىجرا قىلغان بولمىسا

سانغۇن

Rank:2

[؟]

تەجرىبە
57
شۆھرەت
24
تەڭگە
0

تېز ئىنكاس يېزىش

كىرگەندىن كېيىن ئىنكاس يازالايسىز كىرىش | خەتلىتىڭ

ئەسسالام مېھمان

ئاقسۇ قۇتيار كومپيۇتېر شىركىتى باشقۇرۇشىدىكى كومپيۇتېر، ئۇيغۇرچە خەتلىك فىلىم، ساپ ئۇيغۇر تىلىدىكى دەرسلىك ۋە دېتاللارنى ئاساس قىلغان كەسپىي تور بېكەت.
ئۇيغۇرچە discuz ئاساسىدا قۇتيار تورى قايتىدىن تەڭشىدى ، ئۇيغۇرچە discuz ئۈچۈن تەر تۆككەن نۇرقۇت تورىغا ئالاھىدە رەھمەت ئېيتىمىز.
Processed in 0.121501 second(s), 20 queries . GMT+8, 2017-6-23 17:11  新10002915号-1 Powered by Discuz! X2
چوققىغا قايتىش