สร้าง table (sql) โดยรับค่าจาก textbox ต้องทำยังไงครับ ลองหลายแบบแล้ว ช่วยทีครับ
Code (VB.NET)
Dim objCmd As New SqlCommand("Create Table "& Me.txtName.Text &" (ID Int,Name Varchar(50))", objConn)
Date :
2010-03-05 06:45:06
By :
webmaster
Code (VB.NET)
' ขอเสริม Code ของพีื WIN นะคะ
Dim SQLLiteral AS System.Text.StringBuilder = New System.Text.StringBuilder()
Dim NewTableNameStr As String = TextBoxTableName.Text.Trim()
SQLLiteral.AppendLine("DECLARE ")
SQLLiteral.AppendLine(" @EXIST_TABLE INT ;")
SQLLiteral.AppendLine("")
SQLLiteral.AppendLine("SELECT @EXIST_TABLE = ISNULL(COUNT(*),0)")
SQLLiteral.AppendLine("FROM sys.tables")
SQLLiteral.AppendLine("WHERE name = '" + NewTableNameStr +"' ;")
SQLLiteral.AppendLine("")
SQLLiteral.AppendLine("IF (@EXIST_TABLE=1) ")
SQLLiteral.AppendLine("BEGIN")
SQLLiteral.AppendLine(" DROP TABLE [" + NewTableNameStr + "] ;")
SQLLiteral.AppendLine("END ")
SQLLiteral.AppendLine("")
SQLLiteral.AppendLine("CREATE TABLE [" + NewTableNameStr + "] (id int ,name varchar(50)) ;")
SQLLiteral.AppendLine("")
' ที่เพิ่มเข้ามาเป็นการตรวจว่าตารางนี้มีอยู่หรือไม่ถ้ามีก็ลบทิ้งไปก่อน
' ควรตรวจสอบชื่อตารางก่อนนำเข้าในฟังก์ชั่น ต้องถูกกับกฎของการตั้งชื่อตาราง >>> ไปค้นดูค่ะ
' ปกตืเราจะไม่สร้างตารางตอน Runtime ถ้าไม่จำเป็นจริงๆ ถ้าเลี่ยงได้ก็เลี่ยงค่ะ
Dim objCmd As New SqlCommand(SQLLiteral.ToString(), objConn)
Date :
2010-03-05 11:32:32
By :
blurEye
ขอบคุณทั้ง 2 คำตอบครับ
แล้ว code ของคุณ yuon ถ้าอยากได้ msgbox มาถามก่อนว่าจะให้สร้าง table ที่ซ้ำมั้ย
ต้องเพิ่มอะไรเข้าไปอีกครับ
Date :
2010-03-05 22:41:16
By :
noptalent
WINAPP หรือ WEBAPP ค่ะ มันต่างกันนิดหน่อยอะค่ะ
Date :
2010-03-06 00:21:56
By :
blurEye
winapp ครับ
Date :
2010-03-06 08:52:47
By :
noptalent
SQLLiteral.AppendLine("SELECT ISNULL(COUNT(*),0)")
SQLLiteral.AppendLine("FROM sys.tables")
SQLLiteral.AppendLine("WHERE name = '" + NewTableNameStr +"' ;")
เอาสามบรรทัดนี้ไป execute scalar ซึ่งผลลัพธ์ถ้าเป็น 1 คือ มีตารางนี้อยู่แล้ว
ถ้าเป็น 0 ก็ไม่มี
ทีนี้คุณก็เอา messagebox มารับช่วงต่อไปค่ะ
ลองไปเขียนดูค่ะ
Date :
2010-03-06 10:43:14
By :
blurEye
นี่เป็นคำสั่ง(Codefile)ที่แสดงผลทางหน้าจอDOS ค่ะ แต่อยากให้มันเป็นคำสั่งทางWinDowsApplication อะค่ะ ต้องใส่คำสั่งแบบไหนค่ะ ต้องทำ TextBoxเพื่อรับค่าหรือเปล่าค่ะ อย่างน้อยต้องรับค่าสี่ค่าอะค่ะ ช่วยหน่อยน่ะค่ะ จะขอบคุณมาก ๆ ค่ะ
Module ExerciseSolution
Sub Main()
Dim value As Integer
'
Console.WriteLine("Value ?")
value = Console.ReadLine()
'
If value = 0 Then
Console.WriteLine("Zero.")
Else
Console.WriteLine("Value " & value & " is not equal to zero.")
End If
'
Console.ReadLine()
End Sub
End Module
Date :
2010-07-04 00:35:18
By :
fun
เปลี่ยน Console.ReadLine() เป็น property Text ของ TextBox ดิ
ส่วน Console.WriteLine ก็เปลี่ยนเป็น label เพื่อแสดงผลก็ได้
Date :
2010-07-04 00:48:04
By :
tungman
ลองเขียนให้ดูหน่อยได้ไหมค่ะ
Date :
2010-07-04 09:49:22
By :
fun
ลองทำตามที่บอกก่อนได้ไหมคะ
Date :
2010-07-04 20:16:38
By :
tungman
Load balance : Server 02