RHA_65
جمعه 20 شهریور 1388, 14:52 عصر
با عرض سلام خدمت استادان گرامی
این ماژول رو برای حذف کردن یه رکورد از DataBase نوشتم اما نمی تونم مشکلشو پیدا کنم لطفا کمکم کنید.........خیلی بهش نیاز دارم...چند تا ماژول دیگه برای درج و جستجو باید بنویسم.....
***********اولین باره دارم ماژول می نویسم*******************
Imports System.Data
Imports System.Data.SqlClient
Module DBCommands
Dim con As New SqlConnection("Data Source=RHA\SATRIANI;Initial Catalog=Amlak;Integrated Security=True")
Dim da As New SqlDataAdapter
Dim cmd As New SqlCommand
Dim ds As New DataSet
Public Function Exe_Select(ByRef tablename As String) As DataSet
da.SelectCommand = New SqlCommand
da.SelectCommand.Connection = con
da.SelectCommand.CommandText = "Select * from " & tablename & ""
con.Open()
da.Fill(ds, "tablename")
con.Close()
Return ds
End Function
Public Function Exe_delete(ByRef tablename As String, ByRef fieldname As String, ByRef x As String) As Boolean
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "Delete from " & tablename & " where " & fieldname & "=" + x
con.Open()
Try
cmd.ExecuteNonQuery()
con.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Module
این ماژول رو برای حذف کردن یه رکورد از DataBase نوشتم اما نمی تونم مشکلشو پیدا کنم لطفا کمکم کنید.........خیلی بهش نیاز دارم...چند تا ماژول دیگه برای درج و جستجو باید بنویسم.....
***********اولین باره دارم ماژول می نویسم*******************
Imports System.Data
Imports System.Data.SqlClient
Module DBCommands
Dim con As New SqlConnection("Data Source=RHA\SATRIANI;Initial Catalog=Amlak;Integrated Security=True")
Dim da As New SqlDataAdapter
Dim cmd As New SqlCommand
Dim ds As New DataSet
Public Function Exe_Select(ByRef tablename As String) As DataSet
da.SelectCommand = New SqlCommand
da.SelectCommand.Connection = con
da.SelectCommand.CommandText = "Select * from " & tablename & ""
con.Open()
da.Fill(ds, "tablename")
con.Close()
Return ds
End Function
Public Function Exe_delete(ByRef tablename As String, ByRef fieldname As String, ByRef x As String) As Boolean
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "Delete from " & tablename & " where " & fieldname & "=" + x
con.Open()
Try
cmd.ExecuteNonQuery()
con.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Module