vb.net中向数据库中定时添加数据？紧急求助！
我在程序一个按钮中中向数据库中添加了表，并且想在另一个按钮中向表中添加数据，
点击一下添加一次，现在的问题是只可以添加一次数据，再点击时提示表已经存在，
请问怎解决？麻烦各位，情况紧急！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
strYear = System.DateTime.Now.Year.ToString()
strMonth = System.DateTime.Now.Month.ToString()
strDate = System.DateTime.Now.Day.ToString()
theName = "Table" + strYear + strMonth + strDate
'Dim sql As String = Nothing
'Dim MyInsert As String = Nothing
conn = New SqlConnection(ConnectionString)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.ConnectionString = ConnectionString
conn.Open()
sql = "CREATE TABLE " + theName + "" + "(myid NVARCHAR(50)," + "myname NVARCHAR(50) NOT Null,myaddress NVARCHAR(50))"
cmd = New SqlCommand(sql, conn)
Button2.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
conn = New SqlConnection(ConnectionString)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.ConnectionString = ConnectionString
conn.Open()
cmd = New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
'添加记录
MyInsert = "INSERT INTO " + theName + "(myid,myname,myaddress)values(01,'王富力','dizhi')"
cmd = New SqlCommand(MyInsert, conn)
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try
End Sub
[解决办法]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click strYear = System.DateTime.Now.Year.ToString() strMonth = System.DateTime.Now.Month.ToString() strDate = System.DateTime.Now.Day.ToString() theName = "Table" + strYear + strMonth + strDate 'Dim sql As String = Nothing 'Dim MyInsert As String = Nothing conn = New SqlConnection(ConnectionString) If conn.State = ConnectionState.Open Then conn.Close() End If conn.ConnectionString = ConnectionString conn.Open() sql = "CREATE TABLE " + theName + "" + "(myid NVARCHAR(50)," + "myname NVARCHAR(50) NOT Null,myaddress NVARCHAR(50))" cmd = New SqlCommand(sql, conn) '这的SQL是建立表的语句 Button2.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click conn = New SqlConnection(ConnectionString) If conn.State = ConnectionState.Open Then conn.Close() End If conn.ConnectionString = ConnectionString conn.Open() cmd = New SqlCommand(sql, conn) '这的SQL是建立表的语句 Try cmd.ExecuteNonQuery() '这是执行建立表的语句 '添加记录 MyInsert = "INSERT INTO " + theName + "(myid,myname,myaddress)values(01,'王富力','dizhi')" cmd = New SqlCommand(MyInsert, conn) '这的MyInsert是插入的语句 cmd.ExecuteNonQuery() '这是执行插入的语句 Catch ex As Exception MessageBox.Show(ex.Message.ToString()) End Try
