Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > .NET Framework > Forum > บันทึกข้อมูลแล้วไม่ลงฐานข้อมูลคับรบกวนทีคับ SQL Server 2005, Web (ASP.NET), VB.NET


 

[.NET] บันทึกข้อมูลแล้วไม่ลงฐานข้อมูลคับรบกวนทีคับ SQL Server 2005, Web (ASP.NET), VB.NET

 
Topic : 077715



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook


คือกดบันทึกแล้วข้อมูลไม่ยอมบันทึกที่ ฐานข้อมูล แล้ว ในดาต้ากิจวิวก่อไม่มีข้อมูลเหมือนกันคับ แต่ไม่ฟ้องเอ่อเร่ออะไรเลยคับรบกวนทีคับ

Code (VB.NET)
001.Imports System.Data.SqlClient
002.Imports System.Data
003.Partial Class webpage10
004.    Inherits System.Web.UI.Page
005. 
006.    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
007.        If Not IsPostBack Then
008.            Dim CurrYear As Integer = DateTime.Today.Year
009.            ddl_Year.Items.Add((CurrYear - 1).ToString())
010.            ddl_Year.Items.Add(CurrYear.ToString())
011.            ddl_Year.Items.Add((CurrYear + 1).ToString())
012.            ddl_Year.Items.Add((CurrYear + 2).ToString())
013. 
014.            Dim CurrDay As DateTime = DateTime.Today
015.            ddl_Day.SelectedValue = (CurrDay.Day).ToString()
016.            ddl_Month.SelectedValue = (CurrDay.Month).ToString()
017.            ddl_Year.SelectedValue = (CurrDay.Year).ToString()
018. 
019.            
020. 
021.        End If
022.    End Sub
023. 
024.    Protected Overrides Sub Finalize()
025.        MyBase.Finalize()
026.    End Sub
027. 
028.    Protected Sub GetData()
029.        Dim CondStr As String = ""
030.        If txt_Search.Text <> "" Then
031.            CondStr = " and (a.G_memberID like '" & txt_Search.Text & "%' OR a.G_borrowName like '" & txt_Search.Text & "%')"
032.        End If
033. 
034.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
035.        Dim conn As New SqlConnection(connStr)
036.        conn.Open()
037. 
038. 
039.        Dim da As New SqlDataAdapter("select a.*,b.H_FileName from Table_borrow a " & _
040." join Table_device b on(b.H_deviceID=a.G_deviceID) where 1=1 " & CondStr, conn)
041.        Dim ds As New DataSet()
042.        da.Fill(ds)
043.        conn.Close()
044. 
045.        GridView1.DataSource = ds
046.        GridView1.DataBind()
047. 
048.        txt_Count.Text = GridView1.Rows.Count.ToString()
049.    End Sub
050. 
051.    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
052.        GetData()
053. 
054.    End Sub
055. 
056.    Protected Sub Btn_Add_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Add.Click
057.        If Trim(txt_G_deviceID.Text) = "" Then
058.            lbl_G_memberID.Visible = True
059.            txt_G_deviceID.Focus()
060.            Return
061.        End If
062.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
063.        Dim conn As New SqlConnection(connStr)
064.        Dim cmd As New SqlCommand()
065.        cmd.CommandText = "INSERT INTO Table_borrow(G_memberID,G_borrowName,G_deviceID, G_deviceID1,G_deviceID2,G_deviceID3,G_deviceID4,G_storeName, G_storeName1,G_storeName2,G_storeName3,G_storeName4, G_numberTel,G_gowhere,G_borrowDate,G_Date,G_FileName)" & _
066.            " VALUES(@G_memberID,@G_borrowName,@G_deviceID,@G_deviceID1, @G_deviceID2,@G_deviceID3,@G_deviceID4,@G_storeName,@G_storeName1, @G_storeName2,@G_storeName3,@G_storeName4,@G_numberTel, @G_Gowhere,@G_borrowDate,@G_Date,@G_FileName) "
067. 
068.        cmd.Parameters.Add("@G_memberID", SqlDbType.VarChar).Value = txt_G_memberID.Text 'ddl_member.SelectedValue txt_G_memberID.Text
069.        cmd.Parameters.Add("@G_borrowName", SqlDbType.VarChar).Value = txt_G_borrowName.Text
070.        cmd.Parameters.Add("@G_deviceID", SqlDbType.VarChar).Value = txt_G_deviceID.Text
071.        cmd.Parameters.Add("@G_deviceID1", SqlDbType.VarChar).Value = txt_G_deviceID1.Text
072.        cmd.Parameters.Add("@G_deviceID2", SqlDbType.VarChar).Value = txt_G_deviceID2.Text
073.        cmd.Parameters.Add("@G_deviceID3", SqlDbType.VarChar).Value = txt_G_deviceID3.Text
074.        cmd.Parameters.Add("@G_deviceID4", SqlDbType.VarChar).Value = txt_G_deviceID4.Text
075.        cmd.Parameters.Add("@G_storeName", SqlDbType.VarChar).Value = txt_G_storeName.Text
076.        cmd.Parameters.Add("@G_storeName1", SqlDbType.VarChar).Value = txt_G_storeName1.Text
077.        cmd.Parameters.Add("@G_storeName2", SqlDbType.VarChar).Value = txt_G_storeName2.Text
078.        cmd.Parameters.Add("@G_storeName3", SqlDbType.VarChar).Value = txt_G_storeName3.Text
079.        cmd.Parameters.Add("@G_storeName4", SqlDbType.VarChar).Value = txt_G_storeName4.Text
080.        cmd.Parameters.Add("@G_numberTel", SqlDbType.VarChar).Value = txt_G_numberTel.Text
081.        cmd.Parameters.Add("@G_Gowhere", SqlDbType.VarChar).Value = txt_G_gowhere.Text
082.        cmd.Parameters.Add("@G_borrowDate", SqlDbType.VarChar).Value = (Convert.ToDateTime(ddl_Day.SelectedValue & "/" & ddl_Month.SelectedValue & "/" & ddl_Year.SelectedValue))
083.        cmd.Parameters.Add("@G_Date", SqlDbType.DateTime).Value = DateTime.Now
084. 
085.        If Me.FileUpload1.HasFile Then
086.            Me.FileUpload1.SaveAs(Server.MapPath("Picture/" & FileUpload1.FileName))
087.            cmd.Parameters.Add("@G_FileName", SqlDbType.VarChar).Value = "Picture/" & FileUpload1.PostedFile.FileName
088.        Else
089.            cmd.Parameters.Add("@G_FileName", SqlDbType.VarChar).Value = ""
090.        End If
091. 
092. 
093.        cmd.Connection = conn
094.        conn.Open()
095.        cmd.ExecuteNonQuery()
096.        conn.Close()
097.        Response.Redirect("ข้อมูลการยืม.aspx")
098.        GetData()
099.    End Sub
100. 
101.    Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
102.        GridView1.EditIndex = -1
103.        GetData()
104.    End Sub
105. 
106.    Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
107.        GridView1.EditIndex = e.NewEditIndex
108.        GetData()
109.    End Sub
110. 
111.    Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
112.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
113.        Dim conn As New SqlConnection(connStr)
114.        Dim cmd As New SqlCommand() 'C_roomID=@C_roomID,
115.        cmd.CommandText = " UPDATE Table_borrow set G_memberID=@G_memberID, G_borrowName=@G_borrowName, G_deviceID=@G_deviceID,G_deviceID1=@G_deviceID1,G_deviceID2=@G_deviceID2, G_deviceID3=@G_deviceID3,G_deviceID4=@G_deviceID4,G_storeName=@G_storeName, G_storeName1=@G_storeName1,G_storeName2=@G_storeName2,G_storeName3=@G_storeName3, G_storeName4=@G_storeName4,G_numberTel=@G_numberTel,G_Gowhere=@G_Gowhere, G_borrowDate=@G_borrowDate,G_Date=@G_Date " & _
116.        " where G_memberID=@memberID "
117.        'CType(GridView1.Rows(e.RowIndex).FindControl("txt_C_roomID"), TextBox).Text
118.        cmd.Parameters.Add("@G_memberID", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_memberID"), TextBox).Text
119.        cmd.Parameters.Add("@G_borrowName", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_borrowName"), TextBox).Text
120. 
121.        cmd.Parameters.Add("@G_deviceID", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_deviceID"), TextBox).Text
122.        cmd.Parameters.Add("@G_deviceID1", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_deviceID1"), TextBox).Text
123.        cmd.Parameters.Add("@G_deviceID2", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_deviceID2"), TextBox).Text
124.        cmd.Parameters.Add("@G_deviceID3", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_deviceID3"), TextBox).Text
125.        cmd.Parameters.Add("@G_deviceID4", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_deviceID4"), TextBox).Text
126.        cmd.Parameters.Add("@G_storeName", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_storeName"), TextBox).Text
127.        cmd.Parameters.Add("@G_storeName1", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_storeName1"), TextBox).Text
128.        cmd.Parameters.Add("@G_storeName2", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_storeName2"), TextBox).Text
129.        cmd.Parameters.Add("@G_storeName3", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_storeName3"), TextBox).Text
130.        cmd.Parameters.Add("@G_storeName4", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_storeName4"), TextBox).Text
131.        cmd.Parameters.Add("@G_numberTel", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_numberTel"), TextBox).Text
132.        cmd.Parameters.Add("@G_Gowhere", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_Gowhere"), TextBox).Text
133.        cmd.Parameters.Add("@G_borrowDate", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_borrowDate"), TextBox).Text
134.        cmd.Parameters.Add("@G_Date", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("txt_G_Date"), TextBox).Text
135. 
136.        cmd.Parameters.Add("@memberID", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("hf_G_memberID"), HiddenField).Value
137. 
138. 
139.        cmd.Connection = conn
140.        conn.Open()
141.        cmd.ExecuteNonQuery()
142.        conn.Close()
143. 
144.        GridView1.EditIndex = -1
145.        GetData()
146.    End Sub
147. 
148.    Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
149.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
150.        Dim conn As New SqlConnection(connStr)
151.        Dim cmd As New SqlCommand() 'C_roomID=@C_roomID,
152.        cmd.CommandText = " DELETE  FROM Table_borrow " & _
153.        " where G_memberID=@memberID "
154. 
155.        cmd.Parameters.Add("@memberID", SqlDbType.VarChar).Value = CType(GridView1.Rows(e.RowIndex).FindControl("lbl_G_memberID"), Label).Text
156. 
157.        cmd.Connection = conn
158.        conn.Open()
159.        cmd.ExecuteNonQuery()
160.        conn.Close()
161. 
162.        GetData()
163.    End Sub
164. 
165.    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
166.        Response.Redirect("wf_reportborrow.aspx?borrowID=" & GridView1.SelectedDataKey.Value)
167.    End Sub
168. 
169.    Protected Sub ddl_Month_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl_Month.SelectedIndexChanged
170. 
171.    End Sub
172. 
173.    Private Sub getData2(ByVal user As String)
174. 
175.        Dim table As New DataTable()
176.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
177.        Dim conn As New SqlConnection(connStr)
178.        conn.Open()
179.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_member where A_memberID = @memberID ", conn)
180. 
181. 
182.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
183. 
184. 
185.        sqlCmd.Parameters.AddWithValue("@memberID", user)
186.        sqlCmd.Parameters.AddWithValue("@deviceID", user)
187.        sqlDa.Fill(table)
188.        If table.Rows.Count > 0 Then
189.            txt_G_borrowName.Text = table.Rows(0)("A_membernameL").ToString()  'Where ColumnName is the Field from the DB that you want to display
190.            txt_G_numberTel.Text = table.Rows(0)("A_MemberTel").ToString()
191. 
192.        Else
193. 
194.            MsgBox("คุณใส่รหัสบุคลากรไม่ถูกต้อง", 48, "Warnning")
195.        End If
196. 
197.        
198. 
199. 
200.        conn.Close()
201. 
202.    End Sub
203. 
204. 
205. 
206.    Protected Sub txt_G_memberID_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_memberID.TextChanged
207.        getData2(txt_G_memberID.Text)
208.    End Sub
209. 
210.    Protected Sub txt_G_numberTel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_numberTel.TextChanged
211. 
212.    End Sub
213. 
214.    Private Sub getData3(ByVal user As String)
215. 
216.        Dim table As New DataTable()
217.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
218.        Dim conn As New SqlConnection(connStr)
219.        conn.Open()
220.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_device where H_deviceID = @deviceID", conn)
221. 
222.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
223. 
224.        sqlCmd.Parameters.AddWithValue("@deviceID", user)
225.        sqlDa.Fill(table)
226.        If table.Rows.Count > 0 Then
227.            txt_G_storeName.Text = table.Rows(0)("H_storeName").ToString()
228.        Else
229.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
230. 
231.        End If
232. 
233.        
234.        conn.Close()
235. 
236.    End Sub
237. 
238.    Protected Sub txt_G_storeName_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_storeName.TextChanged
239. 
240.    End Sub
241. 
242.    Protected Sub txt_G_deviceID_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID.TextChanged
243.        getData3(txt_G_deviceID.Text)
244.    End Sub
245. 
246.   
247. 
248.     
249.    Private Sub getData4(ByVal user As String)
250.        Dim table As New DataTable()
251.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
252.        Dim conn As New SqlConnection(connStr)
253.        conn.Open()
254.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_device where H_deviceID = @G_deviceID1", conn)
255. 
256.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
257. 
258.        sqlCmd.Parameters.AddWithValue("@G_deviceID1", user)
259.        sqlDa.Fill(table)
260.        If table.Rows.Count > 0 Then
261.            txt_G_storeName1.Text = table.Rows(0)("H_storeName").ToString()
262.        Else
263.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
264.        
265.        End If
266.        conn.Close()
267.    End Sub
268. 
269. 
270.    Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID1.TextChanged
271.        getData4(txt_G_deviceID1.Text)
272.    End Sub
273. 
274. 
275.    Private Sub getData5(ByVal user As String)
276.        Dim table As New DataTable()
277.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
278.        Dim conn As New SqlConnection(connStr)
279.        conn.Open()
280.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_device where H_deviceID = @G_deviceID2", conn)
281. 
282.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
283. 
284.        sqlCmd.Parameters.AddWithValue("@G_deviceID2", user)
285.        sqlDa.Fill(table)
286.        If table.Rows.Count > 0 Then
287.            txt_G_storeName2.Text = table.Rows(0)("H_storeName").ToString()
288. 
289.        Else
290.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
291.        End If
292.        conn.Close()
293. 
294.    End Sub
295. 
296.    Protected Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID2.TextChanged
297.        getData5(txt_G_deviceID2.Text)
298. 
299.    End Sub
300. 
301.    Private Sub getData6(ByVal user As String)
302.        Dim table As New DataTable()
303.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
304.        Dim conn As New SqlConnection(connStr)
305.        conn.Open()
306.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_device where H_deviceID = @G_deviceID3", conn)
307. 
308.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
309. 
310.        sqlCmd.Parameters.AddWithValue("@G_deviceID3", user)
311.        sqlDa.Fill(table)
312.        If table.Rows.Count > 0 Then
313.            txt_G_storeName3.Text = table.Rows(0)("H_storeName").ToString()
314. 
315.        Else
316.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
317. 
318.        End If
319.        conn.Close()
320. 
321. 
322.    End Sub
323. 
324.    Protected Sub TextBox4_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID3.DataBinding
325. 
326.    End Sub
327. 
328.    Protected Sub TextBox4_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID3.TextChanged
329.        getData6(txt_G_deviceID3.Text)
330. 
331.    End Sub
332. 
333.    Private Sub getData7(ByVal user As String)
334.        Dim table As New DataTable()
335.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
336.        Dim conn As New SqlConnection(connStr)
337.        conn.Open()
338.        Dim sqlCmd As New SqlCommand("SELECT * from  Table_device where H_deviceID = @G_deviceID4", conn)
339. 
340.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
341. 
342.        sqlCmd.Parameters.AddWithValue("@G_deviceID4", user)
343.        sqlDa.Fill(table)
344.        If table.Rows.Count > 0 Then
345.            txt_G_storeName4.Text = table.Rows(0)("H_storeName").ToString()
346. 
347.        Else
348.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
349.        End If
350.        conn.Close()
351. 
352.    End Sub
353. 
354. 
355.    Protected Sub TextBox5_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_G_deviceID4.TextChanged
356.        getData7(txt_G_deviceID4.Text)
357. 
358. 
359.    End Sub
360. 
361.    Protected Sub ddl_member_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl_member.SelectedIndexChanged
362.        getData2(ddl_member.SelectedValue)
363. 
364.    End Sub
365. 
366. 
367.    Private Sub getData8(ByVal user As String)
368.        Dim table As New DataTable()
369.        Dim connStr As String = ConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString.ToString()
370.        Dim conn As New SqlConnection(connStr)
371.        conn.Open()
372.        Dim sqlCmd As New SqlCommand("SELECT * from  from  Table_member where A_memberID = @memberID ", conn)
373. 
374.        Dim sqlDa As New SqlDataAdapter(sqlCmd)
375. 
376.        sqlCmd.Parameters.AddWithValue("@A_memberID", user)
377.        sqlDa.Fill(table)
378.        If table.Rows.Count > 0 Then
379.            txt_G_storeName.Text = table.Rows(0)("H_storeName").ToString()
380. 
381.        Else
382.            MsgBox("คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง", 48, "Warnning")
383.        End If
384.        conn.Close()
385. 
386.    End Sub
387. 
388.     
389.    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand
390.        If e.CommandName = "SendReturn" Then
391.            Dim row As GridViewRow = GridView1.Rows(e.CommandArgument)
392.            Response.Redirect("webpage11.aspx?BowrowID=" & GridView1.DataKeys(row.RowIndex).Value)
393.        End If
394.    End Sub
395.End Class




Tag : .NET, Ms SQL Server 2005, Web (ASP.NET), VB.NET

Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-04-29 09:35:26 By : ponsawat View : 1065 Reply : 1
 

 

No. 1



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (VB.NET)
1.cmd.ExecuteNonQuery()


Debug ดูค่านี้มี Error หรือเปล่าครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-29 09:38:27 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : บันทึกข้อมูลแล้วไม่ลงฐานข้อมูลคับรบกวนทีคับ SQL Server 2005, Web (ASP.NET), VB.NET
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่