8,735
社区成员
发帖
与我相关
我的任务
分享
Private _connectionString As String = "Data Source=HAIHANDE-PC\SQLEXPRESS;Initial Catalog=madaming_database;User ID=sa;Password=madaming@nmcdl.m.1"
'把上一行改成: Private _connectionString As String = "Data Source=privider.oracle;Initial Catalog=madaming_database;User ID=sa;Password=madaming@nmcdl.m.1"
' 具体连接串记不住了,那位试试
<OperationContract()> Public Function update_student(ByVal new_student As student) As student
Dim DC As New DCMadamingDataContext(_connectionString)
Try
DC.student.Attach(new_student, True)
DC.SubmitChanges()
Return new_student
Catch ex As Exception
End Try
Return Nothing
End Function
Private _connectionString As String = "Data Source=HAIHANDE-PC\SQLEXPRESS;Initial Catalog=madaming_database;User ID=sa;Password=madaming@nmcdl.mil.1"
<OperationContract()> Public Function update_student(ByVal new_student As student) As student
Dim DC As New DCMadamingDataContext(_connectionString)
Try
DC.student.Attach(new_student, True)
DC.SubmitChanges()
Return new_student
Catch ex As Exception
End Try
Return Nothing
End Function