سلام خسته نباشيد من يه سوال در مورد اوراكل داشتم ( پروژه بيمارستان)
كه كد نويسي هستش ميشه سريع جواب بديد( طبق معمول فورررررررررررري)
- در صورتي كه متخصص لازم براي درمان يك بيمار در بيمارستان وجود نداشته باشد پيغامي مناسب به كاربر بدهد كه از بخش عمومي بجاي ان تخصص يافت نشد استفاده نمايد.
سلام
لطفا عنوان مناسب انتخاب کنید برای تایپک
اوراکی یه بانک هست منظورتون کد نویسی در کجاست ؟
برنامه رو به چه زبوني مينويسي؟ اونو بگو. اوراكل كه بانك اطلاعاتي هستش.
من با پایگاه اوراکل کار نکردم اما فکر سورس های بشه پیدا کرد براتون
اوراكل كه نميتونه پيغام بده. اوراكل تشخيص ميده دكتر متخصص نيست. زبان برنامه نويسي بايد به كاربر بگه اين دكتره امروز نيست.
ميشه الان اين سورسارو پيدا كنيد
نميدونم فقط استاد گفته با پايگاه داده اوراكل پياده سازي كنيد مثلا (sequence ، procedure، trigger
این اولیش
اینم سورسش:
کد:
Option Explicit
Private Sub Command1_Click()
Dim dbConn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim strWName As String
Dim intCount As Long
On Error GoTo ExitME
Err.Clear
Set dbConn = New ADODB.Connection
With dbConn
.Provider = "OraOLEDB.Oracle"
.Properties("Data Source") = "ROWELLS"
.Properties("User Id") = "wellsadmin"
.Properties("Password") = "roweisgood"
.Open
End With
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = dbConn
With Cmd
.Parameters.Append .CreateParameter(, adVarChar, adParamOutput, 50)
.Parameters.Append .CreateParameter(, adNumeric, adParamOutput)
End With
If dbConn.State Then
Cmd.Properties("PLSQLRSet") = True
Cmd.CommandType = adCmdText
Cmd.CommandText = "{CALL WellsAdmin.WellCounting(?, ?)}"
Set rs = Cmd.Execute()
End If
If Not rs Is Nothing Then
Dim i As Long
i = 0
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
i = i + 1
If i > 1 Then
Me.MSHFlexGrid1.Rows = Me.MSHFlexGrid1.Rows + 1
End If
Me.MSHFlexGrid1.TextMatrix(i, 0) = rs.Fields(0).Value
Me.MSHFlexGrid1.TextMatrix(i, 1) = rs.Fields(1).Value
rs.MoveNext
Loop
End If
End If
ExitME:
If Not Cmd Is Nothing Then
Set Cmd = Nothing
End If
If Not dbConn Is Nothing Then
If dbConn.State Then dbConn.Close
Set dbConn = Nothing
End If
End Sub
Private Sub Command2_Click()
Dim dbConn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim lngWellID As Long
lngWellID = InputBox("WellID Number for results:", "Well ID")
On Error GoTo ExitME
Err.Clear
Set dbConn = New ADODB.Connection
With dbConn
.Provider = "OraOLEDB.Oracle"
.Properties("Data Source") = "ROWELLS"
.Properties("User Id") = "wellsadmin"
.Properties("Password") = "roweisgood"
.Open
End With
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = dbConn
With Cmd
.Parameters.Append .CreateParameter(, adNumeric, adParamInput, , lngWellID)
.Parameters.Append .CreateParameter(, adVarChar, adParamOutput, 50)
.Parameters.Append .CreateParameter(, adNumeric, adParamOutput)
End With
If dbConn.State Then
Cmd.Properties("PLSQLRSet") = True
Cmd.CommandType = adCmdText
Cmd.CommandText = "{CALL WellsAdmin.OneWellCount(?,?, ?)}"
Set rs = Cmd.Execute()
End If
If Not rs Is Nothing Then
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
MsgBox "Well Name: " & rs.Fields(0).Value & vbCrLf & "Number of Results: " & rs.Fields(1).Value & vbCrLf & "Well ID Entered: " & lngWellID
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End If
End If
ExitME:
If Not Cmd Is Nothing Then
Set Cmd = Nothing
End If
If Not dbConn Is Nothing Then
If dbConn.State Then dbConn.Close
Set dbConn = Nothing
End If
End Sub
Private Sub Form_Load()
Me.MSHFlexGrid1.TextMatrix(0, 0) = "Well Name"
Me.MSHFlexGrid1.TextMatrix(0, 1) = "Number of results"
Me.MSHFlexGrid1.ColWidth(0) = Len(Me.MSHFlexGrid1.TextMatrix(0, 0)) * 100
Me.MSHFlexGrid1.ColWidth(1) = Len(Me.MSHFlexGrid1.TextMatrix(0, 1)) * 100
End Sub
حالشو ببر اینم پروژه
http://www.vb6.us/files/tutorials/OracleExample.zip